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B r a n c ! i vector for processing routines 

EMT entry processing 

Shared f i 1 e c o ii i t r o i EMT ' s 

PL AS l-MI 's 

Messaqe communication EMT's 

.WRITE 

. READ 

. SERR 

. HERR 

. SPFUM 

. SCCA 

. TRPSET 

. SFPA 

. QSET 

. SETTOF 

. GTJB 

. CHAIN 

. RCTRtn 

. HRESET 

. S RESET 

. SAVES fATUS 

. REOPEN 

. PURGE 

. WAIT 

. GTIM 

. DATE 

. SDTTH 

. TWA IT 

. MRKT 

. CliKT 

. CSTAT 

. CDFN 

. OVAL 

-EXIT 

TTEliT — Terminal control EMT 

SNDMSO - Send a message to a line 

GTMSBE — Get free system message buffer 

QMSG — Oueue a message for a job 

ASTXIT ~- Exit from completion routine 

. SPCPS - — Alter exit address from a completion routine 

ET1T376 — EMT 376 Processing 

viBINFO — Get information about a specific job 

Get terminal type code 

Get Project-Programmer number 

MISC. TSX EMT'S 

Return system (swap) file specification 

Set transmit/receive speed for a .line 

Access TSX system tables 

Get or set user name 

Request operator privilege 

Establish Break key sentinai control 

CHKTT - CHECK I/O TO TT DEVICE 

CKIOST ■ — See if scheduler wants to stop I/O 

SETQ — Do setup of I/O queue element 

SETCR — Set completion routine address in queue element 

CVTUAD •- Convert user address to physical address 

LDIO - — Process 1/0 to logical disks 
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000000 

000000 020550 
177776 



. TITLE TSEM2 ISX-PIue EMT Overlay 

. EMABL LC 

. ENABL. AM A 

. DSABL GBL 

Copyright (C) 1976, 1977, 1970, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

B&:H Computer Systems, Inc. 
Nashville, Tennessee 

This 5oftu.i3re is furnished under a license for use only 
on a single computer system and may be copied only with 
the inclusion of the above copyright notice. This 
softujare, or any other copies thereof, may not be provided 
or otherujise made available to any other person except 
for use on such system and to one who agrees to these 
license terms. Title to and ownership of the software 
shall at all times remain with S&H Computer Systems, Inc. 



. CSECT TSEn2 
TSEri2: . RAD50 /EM2/ 
PS ^ 177776 



i Overlay id 

i Processor Status Word 



Macros to enable and disable interrupts. 



; DISABLE INTERRUPTS 



i ENABLE INTERRUPTS 



. MACRO DISABL 

BIS #340, e#PS 

. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI,©#PS 

. ENDM ENABL 



Macro to print an error message when a system crash occurs. 

Arguments: 
MBO == Name of error message to print. 
ARG ■■■'- (Optional) argument value to display with error message. 

. GLDBL DIEMSe, DIEARG, SYSHLT 

. MACRO DIE MSG, ARG 

MOV MSO, e#DIEMSG 

. IF NB, ARG 

MOV ARG, S#DIEARG 

. ENDC 

CALL <»#SYSHLT 

. ENDM DIE 

Macro definition for calling global routines residing in mapped 
system regions. 

. MACRO OCALL ENTADD 
. IF B, ENTADD 

.ERROR ; OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 
. ENDC 
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78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



CALL 
. WORD 
. ENDM 

Ma c r o calls 



OVRHC 
ENTADD 



; CALL THE OVERLAY HANDLER 
.; SPECIFY THE ENTRY POINT 



. MCALL . PL'ROE, . T lYOUT 

Global definitions 

. GLOBL E375MX, EMT376. RTl lEX 

. OLDBL TSEH2.- READ.- WRITE.. DOEMT 

. GLOBL CINFLG, SDCLOS> UACHKW, GETS 

. GLOBL QIO, GETUCH, CLASN 

. GLOBL QFREE, SPLEM1 

GLOBL lOWAIT. CANMKT 

GLOBL SETERR,EMT.XIT 

. GLOBL BADEMT 

. GLOBL KflNEMT 

. GLOBL DETEMT, PMEMI 

. GLOBL SSEHT 

. GLOBL QMSG 

Global references 

. GLOBL FRECXT, *CFOPN 

. GLOBL *VNOTT, SPPRED, *CTRLS, LDMEMT, GETCXT, REDCXT, CXTBUF 

. GLOBL *DETCH, RUNDEV* Q. PA6, KPAR6, STTCPL, TSXVRS, VLSEMT 

. GLOBL DELETE, LOOKUP, ENTER, RENAME, RTDEV, SFDATE, SFPROT 

. GLOBL RTSPND, RTRSUM, ABTIO, XHIOUT, XHI IN, XTERCK. XRDTIM 

. GLOBL XHISET, MOUNT, DISMNT, RTEMT, GFINFO, SFTIME, SETPRI 

. GLOBL ALCEMT, MONEMT, CPYEMT, TTYIN, TTYOUT, DSTAT, FETCH 

. GLOBL CSIGEN, CSISPC, PRINT, CHKUSP, EMTASP, EMTSP, EMTASP 

. GLOBL *EMTTR, PO«DBG, NLCHN, DOCOPN, DOOPAP, DOCULK, DORLK 

. GLOBL DOTLK, DOULKl, DOSFCK, VMXSF, P2«RLK, VMXWIN, EMTWIN, EMTPLS 

. GLOBL MSEND, MSGCK, MSGWT, P2*MSG 

. GLOBL PO*OPR, PO*SYS, P2*TRM, PO*NAM 

. GLOBL PRIVC2, PO*SND, PO*SPF, PO*BYP 

. GLOBL TSXSIT, DS*SFN, $VIRJB, VIMAGE, PO*SPV 

. GLOBL LDPDEV, LDSIZE, LDBASE, 0. DEVX, LDFLAG, LD*RON, LOVERS 

. GLOBL CQ*LNK, CQIiRTN, CQ*PA5, CQ*JOB, CQ*RO, VPLAS 

. GLOBL INTPRI, UPPN, VPAR6, NFRESB, LACTIV 

. GLOBL SYTIMH, SYTIML, SYSDAT, SETSPD, VMAXMC, MSGABT, MONABT 

. GLOBL PNAME, MAXGVL, NUCHN, ABRTCD, ABRTAD 

. GLOBL EMTBLK, LSW2, $CCLRN, EMTPS, PRIVCO 

. GLOBL LSW4, LSW5, *INKMN, VALADW, VALADB, *PRGLK 

. GLOBL LPROJ, LPROG, lOHALT, EMTADR, MAXLD, LDNAME 

. GLOBL SERFLG, UTRPAD, LUNAME, UCLBLK, LPARNT 

. GLOBL LSW, *CTRLO, STOP, EXCJOB, CUREMT, DH**LB, MAPPLS 

. GLOBL RPAR, RPDR, ODTBAS, CLRDIR 

. GLOBL CQ*FLG, QF*IOT, DX*EBA, DVFLAG, WRITTT 

. GLOBL CS*RON, DS*RON, *INDRN, DS*DIR, CFLAG, SFWRIT 

. GLOBL SDMOVE, FAKCMP, TTREAD, DS*WON, DCRDl, INTERR, NUMDCD 

. GLOBL DCRD2, Q. CHAN. Q. CSW, Q. JOB, UACHKB, Q. BUFF, Q. JNUM 

. GLOBL Q. PAR, LDDEVX, Q. COMP, Q. PAS, CXTBAS, KMNBAS 

. GLOBL S*TWFN, S^OTLO, S*QMIO, S*GlCCB, S*QSPD, S*TTSC 

. GLOBL S*TTFN, SfHICP, S*RT, S*WFM, S*LOW, LPARBS, VPAR5 
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139 
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156 

157 
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163 

164 

165 

166 

167 

168 
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. GLOBL 
, GLOBL 
. GLOBL 
, GLOBL 
. GLOBL 
. GLOBL 
GLOBL 
, GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



LSTHL 

SCHED 

R*CHN, CHNSIZ, R*XCHN, Q. ICSW, Q. UCSW 

fFORMi CQ*CP, CP*STD 

RF*WRT, LSW6, $DBGMD 

EMTMAP. CHNNUM, LJSW, LSTHL 

CLOSE, INDDBL, INDDBS, R*INTC, *INDDW 

LSW3, LSLEPH, LSLEPL 

PASLIN, SCHAIN, LSPND 

CHNADR, EMTCAD, EMTRAD, LSW3 

CORUSR, CURCP, SPCPS, «CTRLO> EMTCAS 

CXTRMN, UFPTRP, JCDB, *HARD, *DEAD 

VTSLCH, LBRKCQ, LBRKCH, SYNAME, lOABFL 

MXJPRI, LPRI, LBSPRI, CQ*RNS, CQ*PRI 

ABORT, VSWPFL, VPRIDF, VPRILO, VPRIHI 

*ODTMD, LSCCA, MXJADR, FPUUSE, CW*FPU 

PO*MEM, LSW2S, LIOHLD, LIOCNT 

MAXPRI, LITIME, «NOINT 

URO, CHKABT, NSPLDV 

S*NED(3, DVSTAT 

JSWLOC, SUTOP, TTOPTS 

SFSVST, «TTGAG, SB*TXT, SB*END 

NMUMB, SNM3HD, QNSPND, SB*LNK, SB*PNT 

LNPRIM, LMSGBF, TRNSTR, LNMAP, MAXSEC, LSECPT 

EMTERR, LSTATE, S$IOWT, UMODE 

CS*ERR, CS*NMX, CS*ENT 

CS*EOF, CS*OPN, CS*NMX, DS«NRD 

C. CSW, C. USED, Q. WCNT, CINDAT, SFCLS 

C. NUMQ, Q. BLKN, Q. FUNC 

C. DEVQ, Q. UNIT 

C. SBLK, C. LENG 

UCHAN, CSIARE, OVLBIT 

LEASE, CS^SPL, SFRSST 

RMNBAS 

S*WSM1B 

LSTPL, *DILUP 

LCDNTM, LSW9 

S*IOFN, LSW7, S*OTFN 

S*TMWT 

QHDSPN, NUMDEV 

MRKTHD, CQ*HOT, CQ*LOT 

LSTDL 

R«CHN, R$DATE 

LEMTPC, LSWn, *V52EM 

VT52, VTIOO, HAZEL, ADM3A, LA36, LA120 

DIABLO, QUME, LTRMTP, VT2007, VT200a 

*FORM 

-PIOMAP 

CONFIG, LNSBLK 

JIVLN, JIDLN, JIMLOK, JIPRIV 

LSTSL, $KINIT, UNLOCK, LNBLKS, MINTIM 

LPRGl, LPRG2, LCPUHI, LCPULO 

S*INWT, S*OTWT, S*SPND, S*SFWT, S*MSWT 

S*QUSR, S*SFWT, S*SPDB, S*SPCB 

S*CPU 

SETC 

MAXCC 
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172 
173 
174 
175 
176 
177 
17S 
179 
180 



. GLODL 
. GLDBL 
. GLOBL 
. OLOBL 
. OLOBL 
. GLOBL 
. GLDBL 
Globals used 
. GLOBL 



CSIARE 

RC*BAS 

SETRBF, CMDB, CMDC, GTSPAC, CMDE, CMDF, CMDG, CMDH 

CMDI, CMDJ, CMDK, CMDL, CMDM, CMDN, CMDO, RSSPAC, SFWAC 

CMDR, CMDS, CMDT, CMDU, SFWL, CMDW, CMDX, CMDY, CMDZ 

SWDBLK> SPLBLK. RSFBLK, UCLDAT, INDFIL 

GETDSS, SETDSS, MS*DTR 

for system mapped regions 

OVRHC 
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1 

2 






3 






4 






r> 






6 






7 






a 


000002 


OOOOOOG 


9 


000004 


OOOOOOG 


10 


000006 


OOOOOOG 


11 


000010 


002732 •• 


13 


0000 1 3 


OOOOOOG 


13 


000014 


003470 •' 


14 


000016 


003614' 


15 


000020 


OOOOOOG 


16 


000022 


001664' 


17 


000024 


001076' 


18 


000026 


004100' 


19 


000030 


OOOOOOG 


20 


000032 


OOOOOOG 


21 


000034 


005154' 


22 


000036 


000544 ' 


23 


000040 


OOOOOOG 


24 


000042 


003224 ' 


25 


000044 


004160' 


26 


000046 


004404 ' 


27 


000050 


004544 ' 


28 


000052 


004320 ' 


29 


000054 


OOOOOOG 


30 


000056 


OOOOOOG 


31 


000060 


005032' 


32 


000062 


002752' 


33 


000064 


OOOOOOG 


34 


000066 


002422 ' 


35 


000070 


OOOOOOG 


36 


000072 


005166' 


37 


000074 


002706 ' 


38 


000076 


000740' 


39 


000100 


OOOOOOG 


40 


000102 


004232 ' 


41 


000104 


007000 ' 


42 


000106 


OOOOOOG 


43 


000110 


OOOOOOG 


44 




000044 


45 






46 






47 


000112 


004100' 


48 


000114 


OOOOOOG 


49 


000116 


OOOOOOG 


50 


000120 


003764' 


51 


000122 


002400' 


52 


000124 


002412' 


53 


000126 


OOOOOOG 


54 


000130 


OOOOOOG 


55 


000132 


003306 ' 


56 


000134 


OOOOOOG 


57 


000136 


004206 ' 



SBTTL Branch vector for processing routines 



DEFINE PROCESSING ROUTINES FOR EACH EMT CODE 



EMT 375 FUNCTIONS 



ENTLST: . WORD 


DELETE ; 


. WORD 


LOOKUP i 


. WORD 


ENTER ; 


. WORD 


TRPSET ■> 


. WORD 


RENAME : 


. WORD 


SVSTAT ■> 


. WORD 


REOPEN i 


. WORD 


CLOSE i 


. WORD 


READ i 


. WORD 


WRITE i 


. WORD 


DOWAIT i 


. WORD 


BADEMT ; 


. WORD 


RTDEV i 


. WORD 


CDFN i 


. WORD 


EMT16 i 


. WORD 


BADEMT i 


. WORD 


GTJB ■> 


. WORD 


GETTIM ; 


. WORD 


MRKT ; 


. WORD 


CMKT ; 


. WORD 


TIMWAT ; 


. WORD 


BADEMT i 


. WORD 


BADEMT ; 


, WORD 


CHSTAT ; 


. WORD 


SFPA i 


. WORD 


EMTXIT i 


. WORD 


SPFUN ■> 


. WORD 


EMTXIT i 


. WORD 


GVAL i 


. WORD 


SCCA ; 


. WORD 


EMTPLX ■> 


. WORD 


BADEMT i 


. WORD 


SDTTM ; 


. WORD 


ESPCPS ■> 


. WORD 


SFDATE ; 


. WORD 


SFPROT i 


E375MX =•= 


<. -EMTLST>/2 


; EMT 374 FUNCTIONS 


EMT374: . WORD 


DOWAIT ; 


. WORD 


RTSPND •> 


. WORD 


RTRSUM i 


. WORD 


PURGE ; 


. WORD 


SERR ; 


. WORD 


HERR ■> 


. WORD 


CLOSE i 


. WORD 


EMTXIT i 


. WORD 


DOC IN i 


. WORD 


BADEMT J 


. WORD 


DATE i 






DELETE 


1 


LOOKUP 


2 


ENTER 


3 


SET TRAP 


4 


RENAME 


5 


SAVE STATUS 


6 


REOPEN 


7 


CLOSE 


10 


READ<C)<W) 


11 


WRITE<C)<W) 


12 


WAIT 


13 


COPY CHANNEL 


14 


DEVICE 


15 


DEFINE CHANNELS 


16 


GROUP 16 EMTS 


17 




20 


GTJB 


21 


GET TIME OF DAY 


22 


MARK TIME 


23 


CANCEL MARK TIME 


24 


TIMED WAIT 


25 


SEND DATA 


26 


RECEIVE DATA 


27 


CHANNEL STATUS 


30 


SET FPP EXCEPTION 


31 


PROTECT VECTORS 


32 


SPECIAL DEV FUNCTIONS 


33 


SET EXTRA SWAP ADDRESSES 


34 


. GVAL 


35 


. SCCA 


36 


. CRRG, . CRAW, . MAP, etc. 


37 


Multi-terminal support 


40 


. SDTTM 


41 


. SPCPS 


42 


. SFDAT — Set file date 


43 


. FPROT — Set file protection 






WAIT 


1 


SUSPEND THIS JOB 


2 


RESUME THIS JOB 


3 


PURGE A CHANNEL 


4 


SET SOFT ERRORS 


5 


SET HARD ERRORS 


6 


CLOSE 


7 


TEST & LOCK USR 


10 


CHAIN 


11 


MESSAGE WAIT 


12 


. DATE 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

63 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

ill 

112 
113 
114 



000140 



000142 

000144 

000146 

000150 

000152 

000154 

000156 

000160 

000162 

000164 

000166 

000170 

000172 

000174 

000176 

000200 

000202 

000204 

000206 

000210 

000212 

000214 

000216 

0002 

OOOS 

000226 
000230 
000232 
000234 
000236 
000240 
000242 
000244 
000246 
000250 
000252 
000254 
000256 
000260 
000262 
000264 
000266 
000270 
000272 
000274 
000276 
000300 
000302 
000304 
000306 



OOOOOOQ 

000014 

000060 



000566' 
000606' 
000616' 
000626 ' 
000766 ' 
00 1 006 ' 
001026' 
010150' 
010032' 
010162' 
010612' 
000636 ' 
OOOOOOG 

ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 
000646 ' 
000656 ' 
010224' 
010242' 
000576' 
OOOOOOG 
006262 ' 
010664' 
011364' 
OOOOOOG 
011444' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
007672 ' 
OOOOOOG 
003102' 
010002' 
OOOOOOG 
007124' 
OOOOOOG 
OOOOOOG 
011172' 
OOOOOOG 
OOOOOOG 
006120' 
010252' 
010376' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000720 ' 
OOOOOOG 



. WORD ABTID 
E374HX = <. -EMT374>/2 
RTllEX = <. -EriTLST>/2 

i 

; EHT'S DEFINED BY TSX. 



13 . ABTIO 



TSXEMT: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



CLKOPN 

CUNLK 

RLOCK 

TRYLK 

XMSEND 

XMSGCK 

XMSGWT 

XSPLSP 

XGTLN 

XODTMD 

XGTTAB 

ULKIBK 

XHIDUT 

XHIIN 

XTERCK 

XRDTIM 

XHISET 

CSFACT 

SFSPND 

CKINAC 

GTLICN 

CAPOPN 

KMNEMT 

SNDMSG 

TBLEMT 

REQPRV 

DETEMT 

GETBRK 

MOUNT 

DISMNT 

PMEMT 

TRMEMT 

RTEMT 

SETS I Z 

GETPPN 

SSEMT 

JBINFO 

GFINFD 

SFTIME 

EMUNAM 

SETPRI 

SPLEMf 

TTEMT 

INTEMT 

EMTSPD 

CLASN 

ALCEMT 

MONEMT 

CPYEMT 

CKWIN 

VLSEMT 



100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 



Open shared file channel 

Unlock shared file channel 

Lock a specific block 

Try to lock a block 

Send a message 

See if message is pending 

Wait for a message 

Get # of free spool blocks 

Get TSX line tt 

Set/reset ODT mode 

Get table pointer 

Unlock a single shared file block 

High-efficiency tty output 

High-efficiency tty input 

Check for TTY input error 

Set TT read timeout 

Turn high-efficiency mode on/off 

Check if shared file has been modified 

Suspend shared file channel 

Check for input activation chars 

Get TSX license number 

Open shared file with access protection 

KMON EMT's 

Send a message to a line 

Access internal tsx table 

Request operator privilege 

Detached job control emt 

Establish break sentinal control 

Mount a file structure 

Dismount a file structure 

Performance monitor EMT's 

Get terminal type 

Real-time EMT's 

TSX-Plus Settop 

Determine Project-Programmer number 

Control shared run-time systems 

Get information about a specific line 

Get information about a file 

Set file creation time 

Get or set user name 

Set job execution priority 

Spooling control for current channel 

Terminal control 

Set interactive/non-interactive mode 

Set terminal transmit/receive speed 

Assign a CL unit to a line 

Allocate or deallocate a device 

Monitor status of a job 

Copy file/priv info from another job 

Display luindoui control 

Switch between processes 



i 
f 
I 
( 
i 
i 
i 

i 
I 

€ 

i 

i 
< 
i 
i 



TSEM2 
Branch 



TSX~Plu3 EMT Overlay 
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vector for processing routines 



115 000310 

116 000312 
117 



0000000 
010306^ 
0001 4S 



EMTMAX 



WORD LDMEMT 
WORD SYFEMT 

<. -EMTLST>/2 



163 Mount a logical disk structure 

164 Get system file dev: f i Ispc. ex t 



TSEM2 TSX-Plus EM i uveriay rirtCKU vutJ. 

Branch vector For processing routines 
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i 



BRANCH VECTOR FOR EMTS IN THE RANGE 340 TO 357 



4 000314 

5 000316 

6 000320 

7 000322 

8 000324 

9 000326 

10 000330 

11 000332 

12 000334 

13 000336 

14 000340 

15 000342 

16 000344 

17 000346 

18 000350 

19 000352 



OOCOOOG 
OOOOOOG 
0000000 
OOOOOOG 
0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 
006034 •' 
OOOOOOG 
003370 ' 
003016-' 
003030 •' 
003340' 
006746' 
003362 ' 



LST16: 



WORD 


TTYIN 


WORD 


TTYOUT 


WORD 


DSTAT 


WORD 


FETCH 


WORD 


CSIGEN 


WORD 


CSISPC 


WORD 


EMTXIT 


WORD 


EMTXIT 


WORD 


EXIT 


WORD 


PRINT 


WORD 


SRESET 


WORD 


QSET 


WORD 


SETTOP 


WORD 


RCTRLO 


WORD 


ASTXIT 


WORD 


HRESET 



340 


TTYIN 


341 


TTYOUT 


342 


DSTATUS 


343 


FETCH/REL 


344 


CSIGEN 


345 


CSISPC 


346 


LOCK USR 


347 


RELEASE USR 


350 


EXIT 


351 


PRINT 


352 


SRESET 


353 


QSET 


354 


SETTOP 


355 


RCTRLO 


356 


Completion routine exit 


357 


HRESET 



TSEM2 TSX-Plus EMi Uveriay 
EMT entry processing 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 

13 000354 

14 000360 

15 000366 

16 000370 

17 000376 

18 000400 
19 
20 

22 000404 

23 000410 

24 000414 

25 000416 
26 
27 
28 

29 000422 

30 000426 
000430 
000432 

33 000436 

34 000442 

35 000450 

36 000452 

37 000460 

38 000462 

39 000466 

40 000470 
41 

42 000472 

43 000476 

44 000502 

45 000506 

46 000512 

47 000514 

48 000520 

49 000524 

50 000530 

51 000532 
52 

53 
54 
55 
56 
57 000536 006305 



31 
32 



113701 
032761 
001406 
032737 
00 1 402 
004737 



113705 
020527 
103402 
000137 



120527 
001443 
005003 
1 53703 
012700 
032737 
001406 
032761 
001002 
012700 
020300 
103032 

010337 
013700 
062700 
020327 
103404 
162703 
062700 
070327 
060003 
010337 
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. SBTTL EMT entry processing 



OOOOOOG 
OOOOOOG 

OOOOOOG 

013456' 



00000 IG 
000145 

OOOOOOG 



000120 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
000021 

000021 

OOOOOOC 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



Complete EMT entry proceEsing and branch off to routine to do the 
actual processing of the EMT. 

At this point the EMT function code^ channel number and arguments have 
been moved to EMTBLK which can be directly addressed from kernel mode 
within the EMT processing routines. 

If EMT tracing has been requested by SET EMT TRACE* 
print info about this EMT. 

DOEMT: MOVE CORUSR, Rl i GET CURRENT JOB INDEX NUMBER 

BIT #*EMTTR>LSW6<Rl)i IS EMT TRACING WANTED? 

BEQ 2* ; BR IF NOT 

BIT #PO*DBG. PRIVCO ; Are uie authorized to do EMT tracing? 

BEQ 2* i Br if not 

CALL EMTTRC ; TRACE THE EMT 



Mai<e sure the EMT function code is ok. 



?*: 



MOVE 


EMTBLK+1,R5 


CMP 


R5, #EMTMAX 


BLO 


5* 


JMP 


BADEMT 



GET FUNCTION CODE 

FUNCTION CODE OK? 

BR IF OK 

INVALID EMT FUNCTION CODE 



Make sure channel number is ok. 



5*: 



OOOOOOG 
OOOOOOG 



3$: 



1*: 



CMPB 


R5, #<140+<RT11EX 


BEQ 


4* 


CLR 


R3 


BIBB 


EMTBLK, R3 


MOV 


#NLCHN, RO 


BIT 


#UMODE, EMTPS 


BEQ 


3* 


BIT 


#*INKMN, LSW4<R1) 


BNE 


3* 


MOV 


#NUCHN, RO 


CMP 


R3, RO 


BHIS 


CHNERR 


address 


of CSW for chann 


MOV 


R3, CHNNUM 


MOV 


CXTRMN, RO 


ADD 


#R*CHN, RO 


CMP 


R3, #21 


BLO 


1* 


SUB 


#21, R3 


ADD 


#R*XCHN-R*CHN, RO 


MUL 


#CHNSIZ,R3 


ADD 


RO, R3 


MOV 


R3, CHNADR 



-100» i IS THIS TSX REAL-TIME EMT? 
;BR IF YES — ALLOW ANY CHANNEL NUMBER 

GET CHANNEL # WITHOUT SIGN EXTENSION 

MAX # CHANNELS FOR EACH JOB 

WAS EMT DONE IN USER OR KERNEL MODE? 

BR IF KERNEL MODE 

IS KMON RUNNING NOW? 

BR IF YES — ALLOW ACCESS TO ALL CHANNELS 

USER PROGRAM — RESTRICT TO CHANS 0-15. 

IS THIS CHANNEL # TOO BIG? 

BR IF YES 

■1. 

SAVE USER'S CHANNEL NUMBER 

GET ADDRESS OF SIMULATED RMON 

POINT TO 1ST CHANNEL AREA 

IS THIS CHANNEL IN EXTENDED CHANNEL AREA? 

BR IF NOT 

GET CHANNEL # IN EXTENDED AREA 

POINT TO EXTENDED CHANNEL AREA 

MULTIPLY BY # BYTES PER CHANNEL 

GET ABSOLUTE ADDRESS OF CHANNEL AREA 

SAVE CURRENT CHANNEL ADDRESS 



Enter EMT processing routine. 

Rl contains user index number. 

URO contains contents of user's RO, put value here to return in RO. 



4*: 



ASL 



R5 



iGET 2# FUNCTION CODE VALUE 



4 



f 
I 

I 

f 
« 

i 

€ 

C 
i 
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i 
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i 
i 

€ 
t 



IStMi:; IbX-Pius til! uveriay 
EM7 entry processing 

58 000540 000175 000002' 

59 

60 

61 

62 

63 000544 113705 0000000 

64 000550 006305 

65 000552 000175 000314' 
66 

67 
68 
69 

70 000556 012700 177770 

71 000562 000137 OOOOOOG 
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JMP @EMTLST<R5) j JUMP TO EMT PROCESSING ROUTINE 

Sub-function jump routine for EMT's in the range 340-357 (group 16). 
EMT16: 



I 
f 



MOVE EMTBLK, R5 

ASL R5 

JMP @LST16<R5) 



Invalid channel number 



GET SUB-FUNCTION CODE 

#2 

ENTER GROUP-16 PROCESSING ROUTINE 



CHNERR: MOV 
JMP 



#-10, RO 
SETERR 



> ERROR CODE # 



TSEii2 TSX-Flus hMi Overlay 
Shared file control EHT ' s 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
2d> 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4S 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL Shared file control EMT's 



000566 
000572 



004737 
000177 



000672 ' 
OOOOOOG 



000576 
000602 



004737 
000177 



000672 ' 
OOOOOOG 



000606 
000612 



004737 
000177 



000672 ' 
OOOOOOG 



000616 
000622 



004737 
000177 



000672' 
OOOOOOG 



000626 
000632 



004737 
000177 



000672 ' 
OOOOOOG 



000636 
000642 



004737 
000177 



OOOOOOG 



000646 
000652 



004737 
000177 



OOOOOOG 



000656 
000662 
000666 



004737 
004777 
000137 



000672' 
OOOOOOG 
OOOOOOG 



PROCESS THE . CLKOPN EMT WHICH IS USED TO OPEN A CHANNEL 
TO A SHARED FILE. 



CLKOPN: CALL CHKSF 

JMP ©DOC OP N 



>See if shared file support is available 
j Do the open 



Open a shared file with access protection. 



CAPOPN: CALL CHK.SF 

JMP SDOOPAP 



J See if shared file support is available 
;Open the channel 



PROCESS THE . CUNLK EMT WHICH IS USED TO UNLOCK 
A SHARED FILE CHANNEL. 



CUNLK: CALL 
JMP 



CHKSF 
©DOCULK 



> See if shared file support is available 
iUnlock all blocks on channel 



PROCESS THE . RLOCK EMT WHICH IS USED TO LOCK A 
SPECIFIC BLOCK. 



RLOCK: CALL 
JMP 



CHKSF 
©DORLK 



; See if shared file support is available 
; Loc k the block 



PROCESS THE . TRYLK EMT WHICH IS USED TO TRY TO LOCK 
A SPECIFIC BLOCK. 



TRYLK: CALL 
JMP 



CHKSF 
SDOTLK 



See if shared file support is available 
Try to lock the block 



UNLOCK A SPECIFIC SHARED FILE BLOCK. 



ULKIBK: CALL CHKSF 

JMP SDOULKl 



i See if shared file support is available 
iUnlock a block 



CHECK FOR WRITES TO A SHARED FILE BY OTHER USERS. 



CSFACT: CALL 
JMP 



CHKSF 
SDOSFCK 



i See if shared file support is available 
iCheck for file modification 



SUSPEND A SHARED FILE CHANNEL 

THIS HAS THE SAME EFFECT ON THE SHARED FILE LOGIC AS DOING 

A . SAVESTATUS BUT THE CHANNEL IS UNAFFECTED. 



SFSPND: CALL 
CALL 
JMP 



CHKSF 

©SFSVST 

EMTXIT 



; See if shared file support is available 
i TELL SHARED FILE LOGIC 



t 

i 
i 



ISE.M2 IbA-Kius bMl uveriay 

Shared file control EMT'5 
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58 
59 
60 

61 000672 00573/ 

62 000676 001405 

63 000700 032737 

64 000706 001401 

65 000710 000207 
66 

67 
68 

69 000712 005000 

70 000714 000137 
71 

72 
73 
74 

75 000720 005737 

76 000724 001003 

77 000726 005000 

78 000730 000137 

79 000734 000137 



Determine if shared file support is genned into the system and the 
user is authorized to use it. If not^ return error code for the EMT. 

OOOOOOG CHKSF: TST VMXSF J Is shared file support genned in? 

BEQ 10* i Br if not 

0000000 0000000 BIT #P2*RLK, PRI VC2 i Are we privileged to access shared files? 

BEQ 10* ;Br if not 

RETURN 

We cannot use shared file support 
10*: CLR RO j Return error code 



OOOOOOG 



0000000 



OOOOOOG 
OOOOOOG 



CLR 



RO 
SETERR 



Display windoiu control EHT's 
CKWIN: 



TST 


VMXWIN 


BNE 


1* 


CLR 


RO 


sJMP 


SETERR 


JHP 


EMTWIN 



ils uiindouj support genned in? 

> Br if yes 

i Return error code O 

/Enter uindou control overlay 



" L J -t- r-. 



TSEn2 


t t).X-r iu 


5 tri 1 uverxay 


PI AS 


EM" 

1 
2 
3 


"'5 
















4 










5 










6 


000740 


005737 


OOOOOOG 




7 


000744 


001402 






S 


000746 


000137 


OOOOOOG 




9 










10 










U 










12 


000752 


012700 


000007 




13 


000756 


005037 


OOOOOOG 




14 


000762 


000137 


OOOOOOG 



SBTTL PLAS EMT ' b 



The following code is called when any PLAS related EMT is executed. 
It checks to see if the PLAS support was generated into the system. 



EMTPLX: TST 
BEQ 
JMP 



VPLAS 

7* 

EMTPLS 



;Was PLAS support generated into system? 

i Br if not 

; Enter TSPLAS overlay 



i Error: PLAS support not generated into system 

9*: MOV #7. RO .: Return error code 7 

i Return in RO 



MOV 


#7.. RO 


CLR 


URO 


vJMP 


SETERR 



000766 
000772 
000776 
001004 



004737 
012700 

000417 



001050' 
OOOOOOG 



TSEM2 TSX-Pius EMi Overlay 
Hessaae communication EMT'g 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 001006 

16 001012 

17 001016 
IS 001024 
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SBTTL Message communication EMT's 



004737 
012700 

000407 



001050' 
OOOOOOG 



19 

20 

iz. X 

22 
23 

24 001026 

25 001032 

26 001036 

27 001044 
28 

29 
30 
31 
32 

33 001050 

34 001054 

35 001056 

36 001064 

37 001066 
38 

39 
40 

41 001070 

42 001072 



004737 
012700 



001050' 
OOOOOOG 



000137 OOOOOOG 



PROCESS THE . MSEND EMT WHICH QUEUES A MESSAGE FOR 
ANOTHER USER. 



X MSEND: 


CALL 


MSGPRV 




MOV 


#EMTBLK, RO 




OCALL 


MSEND 




BR 


CHKERR 



; Do we have access to message facility? 
; Point to EMT arg block 
i SEND THE MESSAGE 
; CHECK FOR ERRORS 



PROCESS THE . MSGCK EMT WHICH IS USED TO CHECK FOR 
A PENDING MESSAGE. 



XMSGCK: CALL 
MOV 
OCALL 
BR 



MSGPRV 
#EMTBLK, RO 
MSGCK 
CHKERR 



Do lue have access to message facility? 
POINT TO EMT ARG BLOCK 
CHECK FOR MESSAGE 
GO CHECK FOR ERRORS 



PROCESS THE . MSGWT EMT WHICH IS USED TO WAIT FOR 
A MESSAGE FROM ANOTHER USER. 



XMSGWT: CALL 
MOV 
OCALL 

CHKERR: vJMP 



MSGPRV 
#EMTBLK, RO 
MSGWT 
EMTXIT 



(Do lue have access to message facility? 
J POINT TO EMT ARG BLOCK 
iWAIT FOR THE MESSAGE 



See if the message communication facility is genned into the system 
and we are authorized to use it. If not. return EMT error code 0. 



005737 OOOOOOG MSGPRV: TST 

001405 BEQ 

032737 OOOOOOG OOOOOOG BIT 

001401 BEQ 



VMAXMC ; Is message facility genned into system? 

10* ; Br if not 

#P2*MSG. PRIVC2 ; Are we authorized to use message facility? 

10* J Br if not 



000207 



005000 

000137 OOOOOOG 



RETURN 
We cannot access message facility 



10*: 



CLR 
JMP 



RO 
SETERR 



j Return error code O 



i 
i 
i 
i 
i 
4 



TSEM2 
. WRITE 



TSX-Pius Elif Overlay 



3 
4 
5 
6 



00 

00 



7 00 

8 00 

9 00 
10 00 
11 

12 
13 

14 00 

15 00 

16 00 

17 00 
IS 00 

19 00 

20 00 

21 00 

23 
24 

25 00 

26 00 

27 00 
23 00 
29 00 
30 

31 
32 
33 

34 00 

35 00 

36 00 

37 00 

38 00 
39 

40 
41 

42 00 

43 00 

44 00 
45 

46 
47 

48 00 

49 00 
50 

51 
52 

53 00 

54 00 

55 00 

56 00 

57 00 



1076 
1102 
1106 
1114 

1116 



1126 
1134 
1136 
1142 
1146 
1154 
1156 
1162 



1166 
1172 
1174 
1176 
1202 



1206 
1212 
1220 
1222 
1226 



1232 
1236 
1240 



1244 
1252 



1254 
1260 
1264 
1266 
1272 



004737 
013703 
032763 
001004 
012700 
000137 



032737 
001414 
016302 
042702 
032762 
001404 
012700 
000137 



005737 
00140t3 
100016 
012700 
000137 



005037 
023727 
101402 
004737 
000137 



004737 
103402 
000137 



032763 
001171 



016302 
032702 
00 1 404 
012700 
000137 
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. SBTTL .WRITE 
ProcGBG a . WRITE EMT. 



011664' WRITE: 

OOOOOOG 

OOOOOOG OOOOOOG 



ooooooe 



CALL CKIOST ; SEE IF SCHEDULER WANTS TO STOP I/O 

MOV CHIMADR, R3 ; GET ADDRESS OF CHANNEL 

BIT #CS*OPN, C. CSW<R3)) IS THE CHANNEL OPEN? 

33 NE 6* ; BR IF YES 

MOV #2, RO ; CHANNEL NOT OPEN 

JMP SETERR 

Check to make sure the buffer is on a word boundary 



000001 000004G 6*: 

OOOOOOG 

177701 

OOOOOOG OOOOOOG 

177766 
OOOOOOG 



BIT 
BEQ 
MOV 
BIC 
BIT 
BEQ 
MOV 
JMP 



#1. EMTBLK+4 

15* 

C. CSW(R3),R2 

#-'^C76, R2 



; Is buffer address even? 

J Br if yes 

; Get CSW 

; Get device table index 



#DX*EBA, DVFLAG(R2); Does this device require even buffer addr? 



15* 
#-12, RO 

SETERR 



Make sure word count is ok 



000006G 



177766 
OOOOOOG 



15*: 



TST 
BEQ 
BPL 
MOV 
JMP 



EMTBLK+6 
17* 
18* 

#-12, RO 
SETERR 



Br if not 

Get abort code 

Abort the operation 



Is word count negative 032727. )? 

Br if word count zero 

Branch if valid size (positive) 

Get abort code 

Abort the operation 



Word count is zero -='-■ 

Treat seek like nop but call completion routine if requested. 



OOOOOOG 

0000 lOG 000001 

OOOOOOG 
OOOOOOG 



011640' 
OOOOOOG 



17*: CLR URO 

CMP EMTBLK+10, #1 

BLOS 19* 

CALL FAKCMP 

19*: JMP EMTXIT 



See if we are writing to TT: 



IB*: 



CALL 


CHKTT 


BCS 


10* 


JMP 


WRITTT 



; Say zero words read 

i Need to run completion routine? 

i Br if not 

iCall completion routine 

iFinished with read 



IS CHANNEL OPENED TO "TT: "? 

BR IF NOT WRITING TO TT 

ENTER THE TT WRITE ROUTINE IN TSTTY 



See if we are writing to a spooled device. 



OOOOOOG OOOOOOG 10*: 



BIT #CS*SPL, C. CSW<R3); IS THIS A SPOOLED DEVICE? 
BNE WRTSPL i BR IF IT IS A SPOOLED DEVICE 



See if we are attempting to write to a read-only device. 



OOOOOOG 
OOOOOOG 

177763 
OOOOOOG 



MOV 


C. CSW(R3),R2 


BIT 


#CS*RON, R2 


BEQ 


9* 


MOV 


#~15, RO 


JMP 


SETERR 



GET CSW 

IS USER AUTHORIZED FOR READ-ONLY ACCESS? 

BR IF NOT READ-ONLY 

SET ABORT ERROR CODE 

ABORT EMT 



\ 



i 
I 
I 
i 
I 
f 
I 

€ 

f 

< 

i 
i 
i 
i 
t 

i 



TSX-Plus EliT Overlay 



WR I TE 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

63 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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001276 
001302 
001310 
001312 
001316 
001320 



001324 
001332 
001334 
001342 
001346 



001352 
001360 
001362 



001366 
001372 
001374 
001402 
001404 
001412 
001414 
001422 
001424 



001436 
001442 
001444 
001450 
001452 
001456 
001460 
001464 
001466 
001472 
001474 
001502 
001504 
001510 
001514 



042702 
032762 
001405 
005037 
005000 
000137 



032763 
00 1 407 
042763 
012700 
000137 



032761 
00 1 402 
004737 



OOOOOOG 



177701 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000001 

OOOOOOG 



9*: BIC #'X76, R2 ; GET DEVICE TABLE INDEX 

BIT #DS*RON, DVSTAT<R2); IS THIS A READ-ONLY DEVICE? 

BEQ 5$ .: BR IF NOT READ-ONLY 

8*: CLR URO i SAY WORDS WRITTEN 

CLR RO i RETURN ERROR CODE OF 

JMP SETERR 

See if error status is pending in CSW for the channel 

5*: BIT #CS*ERR,C. CSW(R3); DID A WRITE ERROR OCCUR? 

BEQ 20* ; BR IF NOT 

BIC #CS*ERR.. C. CSW <R3).: CLEAR THE ERROR FLAG IN THE CSW 

MOV #1,R0 i RETURN ERROR CODE OF 1 

JMP SETERR 

Check if this is an I/O operation by IND 



OOOOOOG OOOOOOG 20* : 
013350-' 



BIT #*INDRN. LSW5(R1)J IS IND RUNNING? 

BEQ 11* ;BR IF NOT 

CALL INDIO >MAP I/O FOR IND 



005763 
001017 
032762 
001413 
023727 
101007 
032737 
001403 



OOOOOOG 
OOOOOOG 
000002G 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



001432 004737 OOOOOOG 



If this is a write by a user-mode program which has opened a file 
structured device in non-file-structured mode> clear the directory 
carhe for the device. 

11*: TST C. SBLK<R3) J Is device opened non-file-structured mode? 

BNE 16* ; Br if not 

BIT #DS*DIR> DVSTAT<R2); Is this a directory structured device? 

BEQ 16* iBr if not 

CMP EMTBLK+2, #DH**LB; Could this block contain directory? 

BHI 16* ;Br if not 

BIT #UMODE. EMTPS ;Was EMT executed in user mode? 

BEQ 16* ;Br if not — Probably TSUSR doing dir I/O 

OCALL CLRDIR ; Clear out directory cache for device 

Build an I/O queue entry for the write request. 

16*: CALL GETQ J GET AN I/O QUEUE ENTRY 

Rl now points to a free I/O queue entry. 

Move arguments from EMTBLK to the queue entry. 



004737 
103473 
005761 
001470 
020063 
101416 
032713 
001413 
005763 
001004 
032762 
001004 
010063 
010061 
005461 



011772' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOC 
OOOOOOG 



14*: 
2*: 



CALL 

BCS 

TST 

BEQ 

CMP 

BLOS 

BIT 

BEQ 

TST 

BNE 

BIT 

BNE 

MOV 

MOV 

NEG 



SETQ 

3* 

Q. WCNT(Rl) 

3* 

RO, C. USED<R3) 

2* 

#CS*ENT, <R3) 

2* 

C. SBLK(R3> 

14* 



; Do common queue setup 

} Br if we must abort operation 

jls word count for transfer zero? 

i Br if yes — Nothing to write 

; Are we writing beyond previous end point? 

; Br if not 

.: Was file opened with a .ENTER? 

; Br if not 

; Is this a directory operation?" 

j Br if not 

#DS*DIR, DVSTAT<R2) ;Is this a directory structured device? 
2* ; Br if yes 

RO, C. USED<R3) i Remember high-water-mark within file 
RO, Q. ICSW+C. USED<R1 )i Store into chan blk in Q element too 
Q. WCNT(Rl) ; Negative word count ==> write operation 



f 

I 

I 

I 

f 

f 

< 

I 

I 

i 

i 

€ 
€ 

i 
i 
i 
i 
i 
i 
i 



TSErl2 
. WRITE 

115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 

134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



Tax~Hlu5 hii! Over J. ay 
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If me shortened write request because ine hit end of file* return error 
code of but go ahead and do the mrite. 



001520 
001526 
001530 



001536 
001542 
001546 



023737 
001403 
052737 



013700 
004737 
103431 



OOOOOOG 0000060 
0000000 OOOOOOG 

0000 100 
012472' 



CMP URO, EMTBLK-+-6 

BEQ 7* 

BIS #CFLAG. EMTPS 



DID WE SHORTEN WRITE REQUEST? 

BR IF NOT 

SET C-FLAG IN PS 



Set address of write completion routine. 



7*: MOV EMTBLK+IO, RO 
CALL SETCR 
BCS 3* 



GET ADDRESS OF COMPLETION ROUTINE 

STORE ADDR OF COMPL ROUTINE INTO QUEUE ELEM 

BR IF FATAL ERROR 



001550 004737 OOOOOOG 



We have built the I/O queue element. 
Initiate the I/O operation. 

CALL QIO i QUEUE AN I/O REQUEST 

See if we are writing to a shared file 



001554 
001560 
001562 



001566 
001572 
001574 



001600 
001606 
001610 
001616 
001622 



005737 
00 1 402 
004777 



005737 
OOlOlf) 
004737 



032763 
001407 
042763 
012700 
000137 



OOOOOOG 
OOOOOOG 

0000 lOG 
OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000001 

OOOOOOG 



TST 


JCDB 


BE£Q 


12* 


CALL 


©SFWRn 



j Does job have any shared files open? 

i Br if not 

i Check for writes to shared files 



See if we should wait for the I/O operation to finish. 



12$: 



TST 


EMTBLK+10 


BNE 


1* 


CALL 


lOWAIT 



IS THIS AN . WRITW? 

BR IF NOT 

WAIT FOR I/O TO FINISH 



001626 000137 OOOOOOG 



001632 000137 002364 



001636 



001644 
001652 
001654 



See if a hardware error occured on the write 

BIT #CS*ERR>C. CSW<R3)iDID A WRITE ERROR OCCUR? 

BEQ 1* i BR IF NOT 

BIC #CS*ERR,C. CSW<R3)i CLEAR THE ERROR FLAG IN THE CSW 

MOV #1,R0 ; RETURN ERROR CODE OF 1 

JMP SETERR 

Finished the EMT. 
1*: JMP EMTXIT iEXIT FROM EMT 

Some fatal error occured which causes us to have to abort the operation. 
3*: JMP lOABRT ; ABORT THE I/O REQUEST 

Write to a spooled device. 
WRTSPL: OCALL SDMOVE j WRITE USER'S DATA TO SPOOL FILE 

See if we need to queue a completion routine for this write request. 



023727 
101402 
004737 



0000 lOG 000001 
OOOOOOG 



WRTCPL: CMP 
BLOS 
CALL 



EMTBLK+IO, #1 

1* 

FAKCMP 



WAS A COMPLETION ROUTINE SPECIFIED? 

BR IF NOT 

QUEUE A COMPLETION ROUTINE REQUEST 



tbL-.Mk' ibX-i^luB th! uverj.ay w^t.:HU vut?. u4 Friday lS-Dec-B7 14: OL? Page B-J 

. WRITE 

172 ; F-inishedspooied write 

173 ; 

174 001660 000137 OOOOOOG 1*: JHP EMTXIT 



TSX~Pius EMi Overlay 



. READ 



1 
2 
3 
4 

5 001664 

6 001670 

7 001674 

8 001702 

9 001704 
10 001710 
11 

12 
13 

14 001714 

15 001722 

16 001724 

17 001730 
IS 001734 

19 001742 

20 001744 

21 001750 
22 

23 
24 
25 

26 001754 

27 001760 

28 001762 

29 001764 

30 001770 
31 

32 
33 
34 

35 001774 

36 002000 

37 002006 

38 002010 

39 002014 
40 

41 
42 

43 002020 

44 002024 

45 002026 
46 

47 

40 

49 

50 

51 002032 

52 

53 

54 002036 

55 002042 

56 002050 

57 002052 



004737 
013703 
032763 
001004 
012700 
000137 



032737 
001414 
016302 
042702 
032762 
001404 
012700 
000137 



005737 
001405 
100016 
012700 
000137 



005037 
023727 
101402 
004737 
000137 



004737 
103402 
000137 



042700 
032760 
001405 
005037 
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. SBTTL . READ 
Process a . READ EMT. 



011664' READ: 

OOOOOOG 

OOOOOOG OOOOOOG 

000002 
OOOOOOG 



CALL CKIOST > SEE IF SCHEDULER WANTS TO STOP I/O 

MOV CHNADR, R3 > GET ADDRESS OF THE CHANNEL 

BIT #CS*OPN, C. CSW<R3)i IS THE CHANNEL OPEN? 

BNE 2* iBR IF YES 

MOV #2, RO i RETURN ERROR CODE 

viMP SETERR 



Check to make sure the buffer is on a uiord boundary 



000001 000004G 2«: 

OOOOOOG 

177701 

OOOOOOG OOOOOOG 

177766 
OOOOOOG 



BIT 
BEQ 
MOV 
BIC 
BIT 
BEQ 
MOV 
JMP 



#1, EMTBLK+4 

15* 

C. CSW<R3), R2 

#••■•076, R2 



i Is buffer address even? 

; Br if yes 

iGet CSW 

j Get device table index 
#DX*EBA, DVFLAG(R2)i Does this device require even buffer addr? 
15$ j Br if not 

#-12* RO ; Get abort code 

SETERR ; Abort the operation 



See if the read request is so large that 
a handier might interpret it as a write 



000006G 



177766 
OOOOOOG 



15*: 



TST 
BEQ 
BPL 
MOV 
JMP 



EMTBLK+6 
17* 
14* 

#-12, RO 
SETERR 



i Is word count negative 032727. )? 

; Br if word count zero 

iBranch if valid size (positive) 

; Get abort code 

j Abort the operation 



Word count is zero ==> St^ek. 

Treat seek like nop but call completion routine if requested. 



OOOOOOG 

0000 lOG 000001 

OOOOOOG 
OOOOOOG 



011640' 
OOOOOOG 



17*: 



19*; 



CLR 


URO 


CMP 


EMTBLK+10, #1 


BLOS 


19* 


CALL 


FAKCMP 


JMP 


EMTXIT 



i Say zero words read 

i Need to run completion routine? 

; Br if not 

;Call completion routine 

iFinished with read 



See if we are reading from TT: 



14*: 



CALL 


CHKTT 


BCS 


10* 


JMP 


TTREAD 



IS CHANNEL OPENED TO "TT: "? 

BR IF NOT TT READ 

TT READ FROM MAPPED TSTTY 



We BTB reading from some device other than TT. 

See if we are attempting to read from a write-only device. 



016300 OOOOOOG 



10*: 



177701 

OOOOOOG OOOOOOG 

OOOOOOG 



4*: 



MOV 
BIT 
BNE 
BIC 
BIT 
BEQ 
CLR 



; GET CSW 

; IS THIS A SPOOLED DEVICE? 

; BR IF SPOOLED DEVICE 

i GET DEVICE TABLE INDEX FOR DEVICE 
#DS*WON, DVSTAT<RO)i IS THIS A WRITE-ONLY DEVICE? 
7* ;BR IF NOT WRITE-ONLY 

URO > SAY WORDS READ 



C. CSW(R3.>, RO 
#CS*SPL, RO 
4* 
#••^076, RO 

















TSEM2 


TSX-Pius EMT Overlay 


MACRO V 




. READ 










58 


002056 


005000 








59 
60 
61 
62 


002060 


000137 


OOOOOOG 






63 


002064 


032763 


0000000 


OOOOOOG 




64 


002072 


001407 








65 


002074 


042763 


OOOOOOG 


OOOOOOG 




66 


002102 


012700 


000001 






67 


002106 


000137 


OOOOOOG 






68 
69 
70 












71 


002112 


032763 


OOOOOOG 


OOOOOOG 




72 


002120 


001410 








73 


002122 


042763 


OOOOOOG 


OOOOOOG 




74 


002130 


005037 


OOOOOOG 






75 


002134 


005000 








76 


002136 


000137 


OOOOOOG 






77 
78 
79 












80 


002142 


005737 


OOOOOOG 






81 


002146 


001412 








82 


002150 


005737 


OOOOOOG 






83 


002154 


001407 








84 


002156 


004777 


OOOOOOG 






85 


002162 


103404 








86 


002164 


013737 


000006G 


OOOOOOG 




87 
88 


002172 


000624 








89 
90 












91 


002174 


032761 


OOOOOOG 


OOOOOOG 




92 


002202 


001402 








93 
94 


002204 


004737 


013350' 






95 
96 












97 


002210 


004737 


OOOOOOG 






98 












99 


002214 


004737 


011772' 






100 


002220 


103461 








101 


002222 


013700 


0000 lOG 






102 


002226 


004737 


012472' 






103 


002232 


103004 








104 


002234 


112737 


177766 


OOOOOOG 




105 
106 
107 


002242 


000450 








108 
109 












110 


002244 


004737 


OOOOOOG 






111 
112 
113 












114 


002250 


005737 


OOOOOOG 
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CLR 
JMP 



RO 
SETERR 



i RETURN ERROR CODE 



TST 


JCDB 


BEQ 


8* 


TST 


NUMDCD 


BEQ 


8* 


CALL 


SDCRDl 


BCS 


8* 


MOV 


EMTBLK+6, URO 


BR 


WRTCPL 



; See if error flag is pending in CSW for this channel 

7*: BIT #CS$ERR,C. CSW<R3)jDID A HARDWARE ERROR OCCUR ON READ? 

BEQ 16* ;BR IF NOT 

BIC #CS*ERR, C. CSW <R3); ACKNOWLEDGE ERROR STATUS 

MOV #1,R0 ; RETURN ERROR CODE OF 1 

v^MP SETERR 

i See if end-of-file statue is pending in CSW for this channel 

> 

16$: BIT #CS*EOF, C. CSW(R3)iDID DEVICE REPORT END OF FILE? 

BEQ 18* iBR IF NOT 

BIC #CS*EOF,C. CSW <R3)i ACKNOWLEDGE EOF STATUS 

CLR URO i SAY WORDS READ 

CLR RO i RETURN ERROR CODE OF 

JMP SETERR 

i See if data being read is currently in the data cache 

IS*: TST JCDB J Any shared file channels open for job? 

Br if not 

Are we doing shared-file data caching? 
Br if not 

SEE IF DATA IS IN DATA CACHE 
BR IF DATA WAS NOT IN THE CACHE 
RETURN WORD COUNT READ IN USER'S RO 
FINISH UP AND EXIT 

> 

i Check for I/O operations by IND 

8$: BIT #*INDRN. LSW5<R1); IS IND RUNNING? 
BEQ 11* ; BR IF NOT 

CALL INDIO ;MAP I/O OPERATIONS FOR IND 

Build I/O queue element for I/O operation. 

11*: CALL GETQ ; GET A FREE I/O QUEUE ELEMENT 

i Rl now points to a free I/O queue element. 

DO COMMON QUEUE SETUP 

BR IF FATAL ERROR DETECTED 

GET COMPLETION ROUTINE ADDRESS 

STORE COMPL RTN ADDR IN I/O QUEUE 

BR IF ADDRESS OK 

SET ERROR CODE 

ABORT OPERATION 

f 

; We have build an I/O queue entry for read request. 
; Initiate the I/O operation. 

3*: CALL QIO ; QUEUE THE REQUEST 

; See if we need to update data cache 

TST JCDB i Any shared file channels for job? 



CALL 


SETQ 


BCS 


lOABRT 


MOV 


EMTBLK+10, RO 


CALL 


SETCR 


BCC 


3* 


MOVB 


#-12, INTERR 


BR 


lOABRT 



I St. He; 
. READ 



itsA-rius tn I uveriay 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 



002254 
002356 
002262 



002270 
002274 
002276 



002302 
002310 
002312 
002320 
002324 



002330 
002336 
002340 
002346 
002352 
002354 



001405 
005737 
001402 
004777 



005737 
001031 
004737 



032763 
001407 
042763 
012700 
000137 



032763 
001410 
042763 
005037 
005000 
000137 



0000000 
OOOOOOtJ 

0000 100 12*: 

OOOOOOG 



BEQ 


12* 


TST 


NUMDCD 


BEQ 


12* 


CALL 


@DCRD2 



i Br i-f not 

i Are u>e doing shared-file data caching' 

i Br if not 

; See if me need to update data cache 



See if we should wait foT^ the I/O operation to finish. 



SHOULD WE WAIT? 

BR IF NOT 

WAIT FOR I/O OPERATION TO FINISH 



TST 


EMTBLK+10 


BNE 


1* 


CALL 


lOWAIT 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000001 

OOOOOOG 



OOOOOOG OOOOOOG 6*: 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



See if a hardware error nrcured on the read 

BIT #CS*ERR,C. CSW<R3);DID A HARDWARE ERROR OCCUR ON READ? 

BEQ 6* ; BR IF NOT 

BIC #CS*ERR,C. CSW(R3); ACKNOWLEDGE ERROR STATUS 

MOV #1,R0 ; RETURN ERROR CODE OF 1 

JMP SETERR 

See if the device reported end-of-file. 

BIT #CS*EOF, C. CSW<R3)i DID DEVICE REPORT END OF FILE? 

BEQ 1* iBR IF NOT 

BIC #CS*EOF, C. CSW<R3) J ACKNOWLEDGE EOF STATUS 

CLR URO i SAY WORDS READ 

CLR RO {RETURN ERROR CODE OF 

JMP SETERR 



002360 000137 OOOOOOG 



Finished operation. 

1*: JMP EMTXIT 

We detected a fatal error before queueing the request. 
Return the I/O queue entry to the free list. 



002364 
002370 
002374 



004737 
113700 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 



lOABRT: CALL 
MOVE 
JMP 



QFREE 

INTERR,RO 

SETERR 



RETURN I/O QUEUE ENTRY TO FREE LIST 
GET ERROR CODE 
ERROR RETURN 



I 

I 

« 

I 

I 

i 

i 

€ 
€ 

i 

4 
I 

( 
i 
i 
i 
4 
4 
4 
4 



€ 
€ 



TSEri2 
. SHRR 



TSX-Plus hMf Overlay 
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SBTTL . SERR 



1 

2 ; 

3 i PROCESS THE . SERR EMT 

4 002400 112737 000001 OOOOOOG SERR: MOVB #1,SERFLG 

5 002406 000137 OOOOOOG JMP EMTXIT 
6 

7 
S 
9 



SBTTL . HERR 



10 002412 105037 OOOOOOG 

11 002416 000137 OOOOOOG 



; PROCESS THE . HERR EMT 
HERR: CLRB SERFLG 
JMP EMTXIT 



i REMEMBER USER ISSUED SERR 



; TURN OFF . SERR CONTROL 



. SPFUN 



ibX-Hlus tni uveriay 



€ 



3 








4 








5 


002422 


004737 


011664' 


6 


002426 


013703 


OOOOOOG 


7 


002432 


016302 


0000000 


S 


002436 


032702 


OOOOOOG 


9 


002442 


001004 




10 


002444 


012700 


000002 


11 
IP, 
13 


002450 


000137 


OOOOOOG 








14 








15 


002454 


042702 


177701 


16 


002460 


032762 


OOOOOOG OOOOOOG 


17 


002466 


001002 




IS 


002470 


000137 


OOOOOOG 


19 








20 








21 








22 


002474 


105737 


0000 11 G 


23 


002500 


002403 




24 


002502 


005000 




25 


002504 


000137 


OOOOOOG 


26 


002510 


1 1 2737 


000377 0000 lOG 


27 








28 








29 








30 


002516 


032762 


OOOOOOG OOOOOOG 


31 


002524 


001413 




32 


002526 


032737 


OOOOOOG OOOOOOG 


33 


002534 


001007 




34 


002536 


120237 


OOOOOOG 


35 


002542 


001404 




36 


002544 


012700 


177747 


37 


002550 


000137 


OOOOOOG 


38 








39 








40 








41 


002554 


004737 


OOOOOOG 


42 








43 








44 








45 








46 


002560 


113761 


00001 IG OOOOOOG 


47 








48 








49 








50 


002566 


004737 


011772' 


51 


002572 


103443 




52 








53 








54 








55 


002574 


013700 


0000 12G 


56 


002600 


004737 


012472' 


57 


002604 


103436 
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. SBTTL . SPFUN 
Perform special device functions. 



3PFUN: 



CALL 


CKIOST 


MOV 


CHNADR, R3 


MOV 


C. CSW<R3), R2 


BIT 


#CS*OPN> R2 


BNE 


1* 


MOV 


#2, RO 


JMP 


SETERR 



See if scheduler uiants to hold I/O starts 

GET ADDRESS OF CHANNEL BLOCK 

GET CSW 

IS CHANNEL OPEN? 

BR IF YES 

ERROR 2 IF CHANNEL NOT OPEN 



See if device can accept special functions. 



4*: 



BIC 
BIT 
BNE 
JMP 



#177701, R2 ; EXTRACT DEVICE TABLE INDEX # 

#DS*SFN, DVSTAT<R2)i CAN DEVICE HANDLE SPECIAL FUNCTIONS? 



2* 
EMTXIT 



i BR IF YES 

j IGNORE . SPFUN REQUEST 



Check function code 



2*: TSTB EMTBLK+li 

BLT 3* 

CLR RO 

JMP SETERR 

3$: MOVB #377, EMTBLK+10 ; MAKE SURE EVEN BYTE = 377 



i FUNCTION CODE MUST BE NEGATIVE 

> BR IF OK 

TERROR CODE IF NOT NEGATIVE FUNCTION 



Make sure user is privileged to do .SPF-UN's 

BIT #DS*DIR,DVSTAT<R2) ;Is this a directory-structured device? 

BEQ 7* i Br if not 

BIT #PO«SPF, PRIVCO ; Is user authorized to do .SPFUN? 

BNE 7* >Br if yes 

CMPB R2, LDDEVX ;Is this a .SPFUN to device LD? 

BEQ 7* iBr if yes — That is ok 

MOV #-31, RO ; Error -31 — Not authorized for .SPFUN 

JMP SETERR 

Get a free I/O queue element and set it up. 

7*: CALL GETQ i GET A FREE I/O QUEUE ELEMENT 

Rl now points to I/O queue element. 

Set special function code in queue element. 

MOVB EMTBLK+11, Q. FUNC<R1); STORE SPECIAL -FUNCTION CODE VALUE 

Set up buffer address and other info in queue element 



CALL 
BCS 



SETQ 
9* 



;SET UP BUFFER ADDRESS AND WORD COUNT 
; BR IF SOME ERROR DETECTED 



Set up address of completion routine. 



MOV EMTBLK+12, RO 
CALL SETCR 
BCS 9* 



GET ADDRESS OF COMPLETION ROUTINE 

SET UP COMPL ADDR IN QUEUE ELEMENT 

BR IF INVALID COMPLETION QUEUE ADDRESS 



TSEM2 
. SPFUN 

5B 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
73 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 



TSX-KIus EM I uverlay 



002606 004737 OOOOOOG 
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Initiate the I/O operation. 

CALL QIO ; QUEUE THE I/O REQUEST 

See if we should wait for the I/O operation to finish. 






002612 
002616 



005737 
001002 



0000 120 



TST EMTBLK+12 
BNE 13* 



i IS WAIT REQUESTED? 
; BR IF NOT 



002620 004737 OOOOOOG 



Wait for I/O to finish 

CALL lOWAIT iWAIT FOR I/O TO FINISH 

See if a hardware error or end~of-file occured. 



002624 
002632 
002634 
002642 
002646 
002652 
002660 
002662 
002670 
002672 



032763 
001407 
042763 
012700 
000137 
032763 
001406 
042763 
005000 
000137 



OOOOOOG OOOOOOG 13«: 



OOOOOOG OOOOOOG 
000001 
OOOOOOG 
OOOOOOG OOOOOOG 



6*: 



OOOOOOG OOOOOOG 
OOOOOOG 



002676 000137 OOOOOOG 



002702 000137 002364' 



BIT #CS*ERR,C. CSW<R3>J DID A HARDWARE ERROR OCCUR? 

BEQ 6* ; BR IF NOT 

BIC #CS*ERR,C. CSW<R3); CLEAR ERROR FLAG IN CSW 

MOV #1,R0 i REPORT ERROR 

JMP SETERR 

BIT #CS*EOF, C. CSW<R3);DID WE HIT END-OF-FILE? 

BEQ 5* i BR IF NOT 

BIC #CS*EOF, C. CSW <R3)i CLEAR END-OF-FILE FLAG IN CSW 

CLR RO ; RETURN ERROR CODE OF 

JMP SETERR 



Normal completion of .SPFUN 
5$: JMP EMTXIT i FINISHED EMT 

Some fatal error occured. Abort request. 
9*: JMP lOABRT ; ABORT I/O REQUEST 



y 



. SCCA 



(t>X-KiLi5 tin! uveriay 
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1 
2 
3 
4 

5 002706 

6 002714 

7 002720 
a 002724 
9 002730 

10 
11 
12 
13 
14 

15 002732 

16 002736 

17 002742 

18 002746 
19 

20 
21 
22 
23 

24 002752 

25 002756 

26 002762 

27 002766 

28 002770 

29 002772 

30 003000 

31 003002 

32 003006 

33 003010 

34 003014 
35 

36 
37 
38 
39 
40 
41 

42 003016 

43 003024 
44 

45 
46 
47 
43 

49 003030 

50 003034 

51 003036 

52 003040 

53 003042 

54 003046 

55 003052 

56 003054 

57 003060 



016137 
013700 
004737 
010061 
000406 



013700 
004737 
010037 
005700 
001407 
032737 
001403 
110137 
000402 
105037 
000754 



. SBTTL . SCCA 
PROCESS THE , SCCA EMT 



013737 
000137 



0000000 
0000020 
OOOOOOG 
OOOOOOG 



OOOOOOG SCCA: 



MOV 

MOV 

CALL 

MOV 

BR 



LSCCA<R1), URO 

EMTBLK+2, RO 

VALADW 

RO, LSCCA<R1) 

JNOP 



RETURN OLD SCCA RTN ADDRESS TO USER IN RO 

GET ADDRESS OF SCCA ROUTINE 

VALIDATE THE ADDRESS 

SAVE ADDRESS OF SCCA ROUTINE FDR JOB 



. SBTTL . TRPSET 
PROCESS THE . TRPSET EMT 



013700 000002G 

004737 OOOOOOG 

010037 OOOOOOG 

000137 OOOOOOG 



TRPSET: MOV 
CALL 
MOV 

viNOP : JMP 



EMTBLK+2, RO 
VALADW 
R0> UTRPAD 
EMTXIT 



GET ADDRESS OF USER'S TRAP ROUTINE 

VALIDATE THE ADDRESS 

SET TRAP ROUTINE ADDRESS FOR JOB 



013700 
005200 
001001 
005300 
042700 
020037 
103404 
013700 
162700 



SBTTL . SFPA 



PROCESS THE . SFPA EMT 



000002G 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



SFPA: 



OOOOOOG 



OOOOOOG 



2$: 
3$: 



MOV 


EMTBLK+2, RO 


CALL 


VALADB 


MOV 


RO, UFPTRP 


TST 


RO 


BEQ 


2* 


BIT 


#CW*FPU, CONFIG 


BEQ 


2$ 


MOVE 


R 1 , FPUUSE 


BR 


3* 


CLRB 


FPUUSE 


BR 


JNOP 



GET ADDRESS 
VALIDATE IT 
SET ADDRESS 



OF TRAP ROUTINE 
<NOTE: ADDRESS MAY 
OF TRAP ROUTINE 



= 1) 



IS USER GOING TO USE FPU UNIT? 

BR IF NOT 

DOES SYSTEM HAVE A FPU UNIT? 

BR IF NOT 

REMEMBER USER IS ACCESSING FPU 

SAY FPU NOT IN USE 



. SBTTL . QSET 



Process the . QSET EMT. 

This is essentially a NOP under TSX-Plus. 

The address beyond the end of the queue buffer is returned in RO. 



000004G OOOOOOG QSET: 
OOOOOOG 



MOV EMTBLK+4, URO 
JMP EMTXIT 

. SBTTL . SETTDP 



; Return address of Q buffer in 
; Finished with EMT 



RO 



PROCESS THE . SETTOP EMT 



OOOOOOG 



000001 
OOOOOOG 

OOOOOOG 
000002 



SETTOP : 
SETTP 1 : 



2«: 



MOV 
INC 
BNE 
DEC 
BIC 
CMP 
BLO 
MOV 
SUB 



URO, RO 

RO 

2* 

RO 

#1, RO 

RO, ODTBAS 

1* 

ODTBAS, RO 



GET USER 'S REQUESTED TOP ADDRESS 

BOUND ADDRESS UP TO WORD IF IT'S ODD 

BR IF DID NOT OVERFLOW 

IF OVERFLOWED, FORCE BACK TO 177777 

FORCE ADDRESS TO BE EVEN 

DOES REQUEST EXCEED JOB'S LIMIT? 

BR IF NOT 

GET MAX AMT JOB IS ALLOWED TO USE 

POINT TO WORD BELOW TOP LIMIT 



TSEM2 TSX-Plus EMT Uverlay 
. SETTOP 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
oo 
87 
88 
89 
90 
91 
92 
93 
94 



003064 
003070 
003072 
003076 



003106 
003112 
003114 
003120 
003122 
003126 
003132 
003134 
003136 
003140 
003144 
003146 
003152 
003156 
003160 
003166 
003172 
003176 
003204 
003210 
003214 
003220 



010037 
010046 
106637 
000137 



013700 
105737 
001750 
120137 
001745 
013702 
162702 
020002 
101401 
010200 
010037 
010046 
106637 
020027 
103412 
052761 
016146 
106637 
052761 
062700 
010037 
004737 
000137 



OOOOOOG 

000050 
0000000 



1«: 



MOV 
MOV 
MTPD 
JMP 



RO, URO 
RO, -(SP) 
t#50 
EMTXIT 



i RETURN TOP ADDRESS IN USER'S RO 
; AND IN LOCATION 50 

; FINISHED 



The TSX-Plus SETSIZ emt is used to change the memory space allocated 
to a job. 



The form of the EMT arqument block is: 



000002G 
OOOOOOG 

OOOOOOG 

OOOOOOG 
000002 



OOOOOOG 

000050 
160000 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000002 

OOOOOOG 

OOOOOOG 

OOOOOOG 





. BYTE 


0.. 141 




. WORD 


. top-addr 


SETSIZ: 


MOV 


EMTBLK+2, RO 




TSTB 


VSWPFL 




BEQ 


SETTPl 




CMPB 


R1,EXCJ0B 




BEG 


SETTPl 




MOV 


MXJADR, R2 




SUB 


#2, R2 




CMP 


RO, R2 




BLOS 


1* 




MOV 


R2, RO 


1$: 


MOV 


RO, URO 




MOV 


RO, -<SP) 




MTPD 


©#50 




CMP 


RO, #160000 




BLO 


2* 




BIS 


#VIMAGE, LJSW<R1) 




MOV 


LJSW<R1), -<SP) 




MTPD 


@#JSWL0C 




BIS 


#*VIRJB,LSW9(R1> 


2*: 


ADD 


#2, RO 




MOV 


RO, ODTBAS 




CALL 


SUTOP 




JMP 


EMTXIT 



Requested top address for job 

GET REQUESTED TOP OF JOB ADDRESS 

IS THIS A NON-SWAPPING SYSTEM? 

IF NON-SWAPPING THEN CAN'T CHANGE SIZE 

DOES JOB HAVE EXCLUSIVE ACCESS TO SYSTEM? 

IF YES THEN CAN'T CHANGE SIZE 

GET ADDRESS ABOVE TOP OF AVAILABLE SPACE 

GET ADDRESS OF TOP AVAILABLE WORD 

IS REQUEST ABOVE TOP ALLOWED? 

BR IF NOT 

CONSTRAIN TO TOP ALLOWED ADDRESS 

RETURN TOP ADDRESS TO USER IN RO 

AND PUT IN USER'S LOCATION 50 

IS JOB NOW USING MORE THAN 56KB? 

BR IF NOT 

SET VIRTUAL- JOB FLAG 



ALSO SET IN INTERNAL SYSTEM TABLE 
GET ADDRESS ABOVE TOP WORD WANTED 
CONSTRAIN . SETTOP TO THIS 
DO MEMORY ALLOCATION FOR JOB 
FINISHED 



I 

€ 

f 
I 
I 
I 
4 

€ 

< 

€ 

I 
i 
i 
i 
i 
i 
i 
i 



rSEM2 


T3X--P1U5 EMT Overlay 


. GTJB 








1 

2 








3 
4 








5 


003224 


013700 


000002G 


6 


003230 


004737 


0000000 


7 


003234 


010146 




8 


003236 


006216 




9 


003240 


106620 




10 


003242 


013746 


OOOOOOG 


n 


003246 


106620 




12 


003250 


005046 




13 


003252 


106620 




14 


003254 


012746 


OOOOOOC 


15 


003260 


106620 




16 


003262 


005046 




17 


003264 


106620 




18 


003266 


010146 




19 


003270 


006216 




20 


003272 


106620 




21 


003274 


013746 


OOOOOOG 


22 


003300 


106620 




23 


003302 


000137 


OOOOOOG 
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. SBTTL . GTJB 
PROCESS THE . GTJB EMT 



GTJB: 



GTJJ: 



MOV EMTBLK+2, RO 

CALL VALADW 

MOV R1,-(SP> 

ASR ( SP ) 

MTPD <R0)+ 

MOV DDTBAS, -<SP) 

MTPD <R0)+ 

CLR -iSP) 

MTPD <R0)+ 

MOV #RMNBAS+R*CHN- 

MTPD <R0)+ 

CLR -<SP) 

MTPD (R0)+ 

MOV R1,-(SP) 

ASR < SP ) 

MTPD <R0)+ 

MOV ODTBAS, -<SP) 

MTPD (R0)+ 

JMP EMTXIT 



GET ADDRESS OF USER'S BUFFER 
VALIDATE BUFFER ADDRESS 
RETURN JOB # 

CWORD i: 

HIGH MEMORY LIMIT 
CWORD 23 
LOW MEMORY 
CWORD 31 

•<SP)i START OF JOB CHANNEL AREA 
CWORD 43 

ADDRESS OF JOB'S IMPURE AREA 
CWORD 53 
JOB'S TERMINAL NUMBER 

CWORD 63 

VIRTUAL HIGH LIMIT 

CWORD 73 



i 



TSEM2 
. CHAIN 



TSX-Pius EriT Overlay 



1 

2 

3 

4 

5 003306 

6 

7 

8 

9 003312 

10 003316 

11 003322 

12 003326 

13 003330 

14 003332 

15 003334 
16 

17 
IS 
19 
20 

21 003340 

22 003346 

23 003350 

24 003356 



105237 OOOOOOG 



012702 
012703 
012704 
106522 
012623 
077403 
004737 



000500 

OOOOOOG 

000140 



ooooooe 
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. SBTTL . CHAIN 

PROCESS A . CHAIN REQUEST. 

DOCIN: INCB CINFLG i SAY .CHAIN IN PROGRESS 

Move chain data to job context area. 

MOV #500, R2 ; POINT TO START OF CHAIN DATA AREA 

MOV #CINDAT, R3 i POINT TO CHAIN DATA SAVE AREA IN CONTEXT BLK 

MOV #«1000-500>/2>, R4 i GET # WORDS TO MOVE 

1$: MFPD <R2)+ > GET A WORD FROM USER'S CHAIN DATA AREA 

MOV (SP)+, <R3)+ ;MOVE TO CONTEXT BLOCK AREA 

SOB R4, 1* 

CALL STOP ;EXIT TO KMON TO DO .CHAIN 

. SBTTL . RCTRLO 

PROCESS THE . RCTRLO EMT 



032761 
001003 
042761 
000137 



OOOOOOG OOOOOOG RCTRLO: 



OOOOOOG OOOOOOG 
OOOOOOG 



1*: 



BIT #*CFDPN, LSW4(R1 )i Is input coming from a command file? 

BNE 1* J Br if yes — Don't reset ctrl-O 

BIC #*CTRL0,LSW3<R1)/ Reset Ctrl-O flag 

JMP EMTXIT 



I 

c 
I 
f 
f 
I 
I 

€ 
I 
€ 

i 

i 

< 
i 
i 

i 



( 
c 
i 
i 

I 

, < 

i 

i 

C 

c 
i 
i 

i 

I 

I € 
€ 
i 
i 
i 

i 
i 
1 
i 
1 



Ibfcnk' (bX-h'ius tfl! uveriay 

. HRESET 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 
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SBTTL 



HRESET 



Process the .HRESET EMT 

(Halt all I/O for job and then purge all I/O channels) 



003362 
003366 



004737 OOOOOOG 
000400 



HRESET: CALL 
BR 



lOHALT 
SRESET 



i HALT ALL I/O FOR JOB 
i NOW DO . SRESET 



SBTTL . SRESET 



13 003370 

14 

15 

16 

17 003370 

IS 

19 

20 

21 



005061 0000000 



003374 004737 004724 ' 



003400 



23 
24 
25 
26 
27 
28 

29 003406 

30 003412 

31 003414 
32 

33 
34 

35 003422 

36 003426 

37 003432 

38 003434 

39 003442 

40 003444 

41 003454 

42 003456 
43 

44 
45 

46 003460 

47 003464 



PROCESS THE . SRESET AND . HRESET EMTS. 
SRESET: 

Re&et . SPND/. RSUM counter for job 

CLR LSPND<R1) i RESET .SPND COUNT FOR JOB 
Cancel any pending . MRKT requests 

CALL CANMKT i CANCEL PENDING MARK-TIME REQUESTS 

Cancel any job monitoring requests 

OCALL MONABT ; Cancel any job monitoring 

Cancel any message-read completion routine requests 



005737 
001403 



OOOOOOG 



TST 


VMAXMC 


BEQ 


4* 


OCALL 


MSGABT 



Purge I/O channels 



012702 
020227 
001004 
032761 
001004 

005302 
002363 



005037 
000137 



177777G 
000017 

OOOOOOG OOOOOOG 



4*: 
1$: 



2*: 
3«: 



MOV 


#NUCHN-1,R2 


CMP 


R2, #17 


BNE 


2* 


BIT 


#OVLBIT, LJSW<R1) 


BNE 


3* 


. PURGE 


R2 


DEC 


R2 


BGE 


1* 



Is message support genned in? 

Br if not 

Abort any message-read cpl routines 



GET HIGHEST USER CHANNEL # 

IS THIS CHANNEL 17? 

BR IF NOT 

IS THE PROGRAM OVERLAYED? 

IF IT IS, DON'T CLOSE CHANNEL 17 

PURGE EACH ONE 



OOOOOOG 
OOOOOOG 



Undo . CDFN 
CLR 



UCHAN 
EMTXIT 



; RESET USER CHANNEL DEFINITIONS 



i 
i 
i 
i 



. SAVESTATUS 



F= i_i . . wvt:i Acay ! invmj vwyj. ut r r 1 o a y la— uec— a/ m: Ui;' Hage it> 



SBTTL . SAVEBTATUG 
Save channel status. 



5 003470 

6 003474 

7 003502 
S 

9 003504 

10 003512 

11 003514 

12 003520 
13 

14 

15 

16 003524 

17 

IS 

19 

20 003530 

21 003534 

22 003536 
23 

24 
25 

26 003542 

27 003544 

28 003550 

29 003554 

30 003560 

31 003562 

32 003564 
33 

34 
35 

36 003566 

37 003574 

38 003576 

39 003602 

40 003606 

41 003610 
42 



013703 
032763 
001417 

032763 
00 1 404 
012700 
000137 



OOOOOOG 
0000000 OOOOOOG 



OOOOOOG OOOOOOG 



000001 
OOOOOOG 



004737 OOOOOOG 



005737 
001402 
004777 



010301 
013700 
004737 
012704 
012346 
106620 
077403 



032761 
001404 
005061 
000137 
005000 
000137 



OOOOOOG 
OOOOOOG 



000002G 
OOOOOOG 
000005 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



SVSTAT: MOV CHNADR, R3 ; GET ADDRESS OF CHANNEL BLOCK 

BIT #CS*OPN, C. C3W(R3)i IS THE CHANNEL OPEN? 

BEQ 4* iBR IF NOT OPEN NOW 

i Make sure file was opened uiith a lookup. 

BIT #CSfENT, C. CSW<R3) ; OPENED WITH LOOKUP OR ENTER? 

BEO 2* ; BR IF LOOKUP 

MOV #1,R0 ; RETURN ERROR CODE 1 

vJMP SETERR 

Wait for any I/O activity on the channel to finish 

2*: CALL lOWAIT ; WAIT FOR I/O TO FINISH 

Tell TSX shared file logic that savestatus is being done 



TST 
BEQ 
CALL 



vJCDB 
4$ 

©SFSVST 



; Any shared file channels open for job? 

i Br if not 

; TELL SHARED FILE SYSTEM 



Move channel block to user's area 



4*: 



3$: 



MOV R3, Rl 

MOV EMTBLK+2, RO 

CALL VALADW 

MOV #5, R4 

MOV (R3)+, -<SP) 

MTPD (R0)+ 

SOB R4, 3« 



SAVE ADDRESS OF CHANNEL AREA 
GET ADDRESS OF USER'S SAVE AREA 
VALIDATE THE ADDRESS 
GET # WORDS TO MOVE 
MOVE DATA TO USER'S AREA 



Mark channel as closed 



5*: 



BIT 
BEQ 
CLR 
JMP 
CLR 
JMP 



#CS$OPN. C. CSW(Rl); IS THE CHANNEL OPEN? 



5* 

C. CSW(Rl) 

EMTXIT 

RO 

SETERR 



BR IF CHANNEL IS NOT OPEN 

PURGE THE CHANNEL 

FINISHED 

RETURN ERROR CODE OF IF CHANNEL CLOSED 



4 



. REOPEN 

1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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003614 013703 0000000 
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. SBTTL . REOPEN 

Reopen a channel using saved status information. 

REOPEN: MOV CHNADR, R3 i GET ADDRESS OF CHANNEL BLOCK 

Make sure channel is not now open. 



003620 
003626 
003630 
003632 



003636 
003642 
003646 
003652 
003654 
003656 



003660 
003664 
003670 
003674 
003676 
003702 
003704 
003710 
003716 
003720 
003724 
003730 



003732 
003736 
003740 



032763 
001403 
005000 
000137 



013700 
004737 
012704 
106520 
012623 
077403 



013703 
016300 
032700 
001425 
032700 
001022 
105063 
126327 
101014 
042700 
020037 
1 1 007 



005737 
001402 
004777 



OOOOOOG 0000000 



0000000 



0000020 
0000000 
000005 



0000000 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

ooooooc 

OOOOOOG 



000007 



OOOOOOG 
OOOOOOG 



003744 000137 OOOOOOG 



003750 
003754 
003760 



005063 
012700 
000137 



OOOOOOG 

000001 

OOOOOOG 



BIT #CS*OPN, C. CSW<R3)i IS CHANNEL OPEN N0W7' 

BEQ 1* i BR IF NOT 

CLR RO ; RETURN ERROR CODE OF 

viMP SETERR 



Channel is closed. 



Restore status. 



MOV 


EMTBLK+2, RO 


CALL 


VALADW 


MOV 


#5, R4 


MFPD 


(R0) + 


MOV 


(SP)+, <R3) + 


SOB 


R4, 3* 



1*: MOV EMTBLK+2, RO > GET ADDRESS OF USER'S SAVE STATUS BLOCK 

VALIDATE THE ADDRESS 

GET # WORDS TO MOVE 
3$: MFPD (R0>+ ; GET A WORD FROM USER'S AREA 

MOVE INTO CHANNEL BLOCK 

MOVE ALL 

Check consistency of savestatus information that we restored. 

POINT TO CHANNEL BLOCK 

GET CHANNEL STATUS WORD <CSW) 

CHANNEL SHOULD BE OPEN NOW 

ERROR IF NOT 

CHANNEL SHOULD HAVE BEEN OPENED VIA LOOKUP 

ERROR IF NOT 

THERE SHOULD BE NO ACTIVE I/O OPERATIONS 

CHECK VALIDITY OF UNIT NUMBER 

ERROR IF TOO BIG 

GET DEVICE INDEX NUMBER 

MAKE SURE IT IS A VALID NUMBER 

BR IF TOO BIG 

Tell shared file system about the reopen. 



MOV 


CHNADR, R3 


MOV 


C. CSW<R3),R0 


BIT 


#CS*OPN, RO 


BEQ 


9* 


BIT 


#CS*ENT, RO 


BNE 


9* 


CLRB 


C. NUMQ<R3) 


CMPB 


C. DEVQ<R3),#7 


BHI 


9* 


BIC 


#'^C<CS*NMX>, RO 


CMP 


RO, NUMDEV 


BHI 


9* 



TST 
BEQ 
CALL 

Finished 

4*: JMP 

Error - 



JCDB 

4* 

eSFRSST 



EMTXIT 



J Does job have any shared file channels? 

; Br if not 

; WE MAY BE REOPENING A SHARED FILE 



Savestatus info we restored was invalid. 
Return error code of 1. 



9*: 



CLR 
MOV 
JMP 



C. CSW<R3> 
#1, RO 

SETERR 



; PURGE THE CHANNEL 
.: RETURN ERROR CODE 1 



TSEM2 
. PURGE 



TSX-Plus Elir Overlay 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



. SBTTL. 



PUROE 



003764 
003770 
003776 
004000 
004004 
004010 
004014 
004016 
004024 
004030 
004032 



004036 
004042 
004046 
004054 
004056 
004062 
004064 
004070 
004074 



013703 
032763 
001434 
004737 
113701 
105737 
001403 

005737 
001402 
004777 



016300 
042700 
032760 
001405 
005737 
001002 
000137 
005063 
000137 



Purge a channel. 



0000000 PURGE: 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



?*: 



MOV 

BIT 

BEQ 

CALL 

liOVB 

TSTB 

BEG 

OCALL 

TST 

BEO 

CALL 



CHNADR, R3 

#CS*OPN. C. 

1* 

lOWAIT 

CHWNUM, Rl 

NSPLDV 

2* 

SDCLOS 

JCDB 

4* 

eSFCLS 



; GET ADDRESS OF CHANNEL BLOCK 
CSW<R3)i IS THE CHANNEL OPEN NOW? 
BR IF NOT OPEN 

WAIT FOR I/O ON CHANNEL TO FINISH 
GET CHANNEL NUMBER 
Are there any spooled devices? 
BR IF NOT 

SEE IF THIS IS A SPOOLED DEVICE 
Does job have any shared file channels? 
Br if not 
SEE IF IT IS A SHARED FILE 



If we are purging a channel opened to a mag tape and I/O abort 
entry point code is turned off. then treat the purge like a close. 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



4*: 



1*: 



MOV 
BIC 
BIT 
BEQ 
TST 
BNE 
JliP 
CLR 
JMP 



C. CSW<R3>, RO 
#-^C<CS*NMX>, RO 



; GET CHANNEL STATUS WORD 
i MASK OUT ALL BUT DEVICE 



INDEX NUMBER 



#DS*NRD, DVSTAT<RO); IS DEVICE 

1* 

lOABFL 

1* 

CLOSE 

C. CSW(R3) 

EMTXIT 



A MAGNETIC TAPE? 
BR IF NOT 

IS 10 ABORT IN EFFECT? 
BR IF YES 

TREAT PURGE ON MAG TAPE LIKE CLOSE 
MARK CHANNEL AS CLOSED 
FINISHED 



. WAIT 



-ti-\ \t r% • 



- K_j n- r% . 



>. 4 h t-.r\ r 
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i 
2 
3 
4 
5 004100 013703 OOOOOOS 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
20 



. SBTTL .WAIT 
.WAIT — Wait for all I/O to finish on a channel. 
DOWAIT: MOV CHNADR, R3 i GET ADDRESS OF CHANNEL 
Make sure channel is open 



004104 
004112 
004114 
004116 



032763 
001003 
005000 
000137 



OOOOOOG OOOOOOG 



OOOOOOG 



BIT 
BNE 
CLR 
JMP 



#CS*OPN»C. CSW<R3); IS THE CHANNEL OPEN? 



1* 
RO 
SETERR 



;BR IF YES 

i RETURN ERROR CODE OF IF NOT OPEN 



004122 004737 OOOOOOG 



.: Wait for all I/O to finibh 

f 

1*: CALL IOWA IT 

i 

i Check for hardware erroi'S 



;WAIT FOR I/O TO FINISH 



004126 

004134 
004136 
004144 
004150 



032763 
001407 
042763 
012700 
000137 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000001 

OOOOOOG 



004154 000137 OOOOOOG 



9*: 



BIT 
BEQ 
BIC 
MOV 
JMP 

Finished 

JMP 



#CS*ERR,C. CSW<R3);DID A HARD ERROR OCCUR? 

9* ; BR IF NOT 

#CS*ERR,C. CSW<R3)i CLEAR THE ERROR FLAG IN THE CSW 

#1,R0 i Return error code 1 

SETERR 



EMTXIT 



> RETURN 



fStM2 


TSX-Plu 


5 ir. I'l 1 U V e r J. a y 


GTIM 








1 

2 








3 








4 








5 


004160 


013700 


000002G 


6 


004164 


004737 


OOOOOOG 


7 


004170 


013746 


0000000 


8 


004174 


106620 




9 


004176 


013746 


OOOOOOG 


10 


004202 


106610 




11 
12 
13 


004204 


000403 










14 








15 








16 








17 


004206 


013737 


OOOOOOG 


IS 








19 


004214 


013702 


OOOOOOG 


20 


004220 


013762 


OOOOOOG 


21 


004226 


000137 


OOOOOOG 


22 








23 








24 








25 








26 








27 


004232 


032737 


OOOOOOG 


28 


004240 


001003 




29 


004242 


005000 




30 


004244 


000137 


OOOOOOG 


31 








32 








33 








34 


004250 


013702 


000002G 


35 


004254 


010200 




36 


004256 


004737 


OOOOOOG 


37 


004262 


106522 




38 


004264 


012600 




39 


004266 


002402 




40 


004270 


010037 


OOOOOOG 


41 








42 








43 








44 


004274 


106522 




45 


004276 


012600 




46 


004300 


002405 




47 


004302 


010037 


OOOOOOG 


48 


004306 


106522 




49 


004310 


012637 


OOOOOOG 


50 








51 








52 








53 


004314 


000137 


OOOOOOG 



n«CKu vuD. u^i- (-Tiday la-i;ec-8/ 14:02 ^'age 2v,) 



. SBTTL . GTIM 



t •«- — — 

; Get 


time of 


day. 


GETTIM: 


MOV 


EMrBLK+2> RO 




CALL 


VALADW 




MOV 


SYTIMH. -(SP> 




MTPD 


(R0) + 




MOV 


SYTIML, -<SP) 




MTPD 


(RO) 




BR 


UPDATE 



i GET ADDR OF USER'S TIME BUFFER 
i VALIDATE THE ADDRESS 
J RETURN HIGH-ORDER TIME 

; RETURN LOW -ORDER TIME 

; GO UPDATE DATE CELL 

. SBTTL . DATE 

Get current date (return to user in RO). 

OOOOOOG DATE: MOV SYSDAT. URO ; RETURN DATE TO USER IN RO 

i Move current date value to cell in user's simulated monitor vector table. 

UPDATE: MOV CXTRMN, R2 ; GET BASE ADDRESS OF JOB VECTOR 

OOOOOOG MOV SYSDAT, R*DATE(R2); SET DATE VALUE 

JMP EMTXIT 



. SBTTL . SDTTM 



. SDTTM 



Set system date and time. 



OOOOOOG SDTTM: 



BIT 
BNE 
CLR 
JMP 



Set date 

1$: MOV 
MOV 
CALL 
MFPD 
MOV 
BLT 
MOV 

; Set tim^^ 

2*: MFPD 
MOV 
BLT 
MOV 
MFPD 
MOV 

Finished 

3*: viMP 



#PO*OPR, PRIVCO 

1« 

RO 

SETERR 



EMrBLK+2, R2 

R2>R0 

VALADW 

(R2) + 

(SP)+, RO 

2* 

RO, SYSDAT 



<R2) + 

<SP)+, RO 

3* 

RO, SYTIMH 

(R2) + 

<SP)+, SYTIML 



EMTXIT 



IS THIS A PRIVILEGED USER RUNNING? 

BR IF YES 

RETURN ERROR CODE 



;GET ADDRESS OF DATE/TIME VALUE BLOCK 
; VALIDATE THE ADDRESS 

i GET NEW DATE VALUE 

; IF NEGATIVE THEN DON'T CHANGE DATE 
/ SET NEW SYSTEM DATE 



; GET HIGH-ORDER TIME VALUE 

; IF NEGATIVE, DON'T CHANGE TIME VALUE 
i SET NEW HIGH-ORDER TIME VALUE 
;GET NEW LOW-ORDER TIME VALUE 
; SET LOW-ORDER TIME VALUE 



\ 



SEn2 


TSX-Plu 


5 tnt uv6?r.iay 


TWA IT 








1 
2 








3 








4 








5 


004320 


013700 


000002G 


6 


004324 


004737 


ooooooe 


7 


004330 


106520 




8 


004332 


012661 


OOOOOOG 


9 


004336 


106510 




10 


004340 


012661 


OOOOOOG 


11 








12 








13 








14 


004344 


004737 


OOOOOOG 


15 


004350 


005761 


OOOOOOG 


16 


004354 


002411 




17 


004356 


003003 




18 


004360 


005761 


OOOOOOG 


19 


004364 


001405 




20 


004366 


012700 


OOOOOOG 


21 


004372 


004737 


OOOOOOG 


22 


004376 


000762 




23 








24 








25 








26 


004400 


000137 


OOOOOOG 
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. SBTTL . TIM IT 
Do a timed wait 



TIMWAT: MOV 
CALL 
MFPD 
MOV 
MFPD 
MOV 



EMTBLK+2, RO ; GET POINTER TO TIME VALUE BLOCK 

VALADW ; VALIDATE THE ADDRESS 

<R0)+ ;GET HIGH-ORDER TIME VALUE 

(SP)+, LSLEPH<R1 ) 

(RO) iGET LOW-ORDER TIME VALUE 

<SP)+, LSLEPL<R1) 



Suspend job for timed interval 



1$: 



CALL 


CHKABT 


TBT 


LSLEPH(Rl) 


BLT 


3* 


BGT 


2* 


TST 


LSLEPL<R1) 


BEQ 


3* 


MOV 


#S*TMWT, RO 


CALL 


QHDSPN 


BR 


1* 



2%: 



Timed wait is finished 
3*: JMP EMTXIT 



MAKE SURE WE HAVEN'T BEEN ABORTED 

IS THERE STILL SOME SLEEP TIME LEFT? 

BR IF NOT <TIME HAS GONE NEGATIVE) 

BR IF SOME TIME LEFT 

CHECK LOW-ORDER VALUE 

BR IF TIME IS UP 

STATE BECOMES TIMED WAIT 

SUSPEND THE JOB 



i 
i 

€ 
€ 

i 

i 
i 

K 
I 
i 
I 
4 



c 
* 

c 
i 
i 
i 

i 

> i 

I 
i 

4 

i 

i 
i 

I. 

» i 
I 

i 
t 
t 
i 



TSEM2 
. MRKT 



Tb"X-H i u s Lfl 1 uver 1 ay 



004404 



004404 004737 OOOOOOG 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 

13 

14 004410 

15 

16 004416 

17 004422 
19 004426 

19 004430 

20 004432 

21 004436 

22 004440 
23 

24 

25 

26 

27 

28 

29 004462 

30 

31 004470 

32 

33 

34 

35 004476 

36 004504 

37 004512 

38 004516 
39 

40 
41 
42 
43 
44 
45 

46 004530 

47 004534 

48 004540 



113761 OOOOOOG OOOOOOG 



004444 
004450 
004454 
004456 



013700 
004737 
103440 
106520 
012661 
106510 
012661 

013700 
004737 
103425 
010061 

013761 

013761 



000002G 
OOOOOOG 



OOOOOOG 

OOOOOOG 

000004G 
OOOOOOG 

OOOOOOG 

OOOOOOG 

000006G 
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. SBTTL . MRKT 
Start a mark-time request. 
MRKT: 
i Get an 1/0 queue entry. 

i 

CALL GETQ i GET A FREE I/O QUEUE ELEMENT 

t 

i Set up the queue element as a comp letion queue element. 
; ( R 1 = Address of queue element) 

MOVE CORUSR,CQ*JOB<Rl)iSET JOB # IN QUEUE ELEMENT 
; Set time value. 

GET ADDRESS OF TIME VALUE ARG BLOCK 

MAKE SURE ADDRESS IS LEGAL 

BR IF INVALID ADDRESS 

GET HIGH-ORDER TIME VALUE 

SET HIGH-ORDER TIME VALUE 

GET LOW-ORDER TIME VALUE 



MOV 


EMTBLK+2, RO 


CALL 


UACHKW 


DCS 


9* 


MFPD 


<R0.) + 


MOV 


(SP)+, CQ*HOf (Rl) 


MFPD 


(RO) 


MOV 


<SP)+, CQ$L0T<R1) 


ddress 


of completion rou 


MOV 


EMTBLK+4, RO 


CALL 


UACHKW 


BCS 


9* 


MOV 


RO, CQ*RTN(R1) 



OOOOOOG 
OOOOOOG 



013761 
010137 



OOOOOOG 
OOOOOOG 



OOOOOOG 



004524 000137 OOOOOOG 



; GET ADDRESS OF COMPLETION ROUTINE 
iMAKE SURE ADDRESS IS LEGAL 
i BR IF NOT LEGAL 

; SET ADDRESS OF COMPLETION ROUTINE 
Set mapping for kernel PAR 5 that was in effect when EMT was executed. 

MOV EMTMAP, CQ*PA5<Rl)iSET EMT ENTRY MAPPING FOR PAR 5 
Set ID number 

MOV EMTBLK+6, CQ$RO<Rl)iSET COMPLETION ID NUMBER 

Add queue entry to mark-time list. 

DISABL i *■* DISABLE «* 

MOV MRKTHD, CQ*LNK(R1); ADD TO FRONT OF LIST 

MOV R 1 , MRKTHD 

ENABL i «* ENABLE ** 

Finished 

JMP EMTXIT 

Error — Invalid address in MRKT argument list. 



004737 
012700 
000137 



OOOOOOG 

177766 

OOOOOOG 



9$; 



CALL 

MOV 
v^MP 



QFREE 
#-12, RO 
SETERR 



RELEASE THE QUEUE ELEMENT 
RETURN ERROR CODE 
ABORT EMT 



. CMKT 



isA-rius tin I uveriay 
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1 
2 
3 
4 

5 004544 

6 004546 

7 004552 
8 

9 
10 

11 004554 

12 004560 

13 004566 

14 004572 

15 004574 

16 004600 

17 004602 
IS 004610 

19 004612 

20 004616 

21 004620 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



. SBTTL . CMKT 
Cancel mark-time request. 



010103 
013702 
00 1 460 



012704 

016401 
00 1 442 
120361 
001007 
132761 
001003 
020261 
001402 
010104 
000761 



000002G 



CMKT: MOV R1,R3 

MOV EMTBLK+2, R2 
BEQ 1* 



COPY JOB INDEX # 

QET ID VALUE 

BR IF WE SHOULD CANCEL ALL REQUESTS FOR JOB 



Cancel a specifiec mark-time request for this job. 



OOOOOOC 
0000000 
OOOOOOG 

0000000 OOOOOOG 
OOOOOOS 



4*: 



MOV 


#MRKTHD~CQ*LN 


DISABL 




MOV 


CQ*LNK(R4),R1 


BEQ 


5* 


CMPB 


R3, CQ*J0B<R1) 


BNE 


2* 


BITB 


#QF*IOT, CQ*FL 


BNE 


2* 


CMP 


R2, CQ*RO<Ri) 


BEQ 


3* 


MOV 


R1,R4 


BR 


4* 



Found specified queue entry 



*«• DISABLE «■* 

GET ADDRESS OF NEXT MARK-TIME QUEUE ENTRY 

BR IF REACHED END OF LIST 

DOES THIS ENTRY BELONG TO OUR JOB? 

BR IF NOT 

); IS THIS A . TIMIO ENTRY? 

BR IF YES 

DO ID NUMBERS MATCH? 

BR IF YES — FOUND ENTRY TO DELETE 

CHAIN FORWARD TO NEXT ENTRY IN LIST 



delete from list. 



004624 
004632 



016164 OOOOOOG OOOOOOG 3$: 



MOV 
ENABL 



CQ*LNK(R1),CQ*LNK(R4); RELINK LIST AROUND US 

; ■«•« ENABLE «•* 



See if we need to return remaining time. 



004640 
004644 

33 004646 

34 004652 

35 004654 

36 004660 

37 004662 

38 004666 
39 

40 

41 

42 004670 

43 

44 

45 

46 004674 

47 

48 

49 

50 004700 

51 004706 

52 004710 
53 

54 
55 

56 004714 

57 004720 



013700 
001411 
004737 
103406 
016146 
106620 
016146 
106610 



000004G 
OOOOOOG 
OOOOOOG 
OOOOOOG 



DOES USER WANT REMAINING TIME? 

BR IF NOT 

MAKE SURE RECIEVING AREA IS LEGAL 

BR IF NOT LEGAL 

RETURN HIGH-ORDER TIME 



004737 OOOOOOG 



000137 OOOOOOG 



MOV EMTBLK+4, RO 

BEQ 6* 

CALL UACHKW 

BCS 6* 

MOV CQ*H0T<R1), ~<SP) 

MTPD <R0)+ 

MOV CQ*LOT < R 1 ) , - ( SP ) ; RETURN LOW-ORDER T I ME 

MTPD <R0) 

Return queue element to free list. 

6*: CALL QFREE ; FREE THE Q ELEMENT 

F^ i n i s h e d 

JMP EMTXIT 

Could not find specified queue element — return error code 0. 



D$: 



005000 

000137 OOOOOOG 



ENABL 




CLR 


RO 


JMP 


SETERR 



; *«• ENABLE *■«• 

; RETURN ERROR CODE 



Cancel all mark-time requests for this job. 



004737 
000137 



004724 ' 
OOOOOOG 



1*: 



CALL 
JMP 



CANMKT 
EMTXIT 



; CANCEL ALL MARK-TIME REQUESTS FOR JOB 
i FINISHED 



f 

f 

f 

I 

f 

< 

( 

I 

I 

i 

i 
c 
< 
i 

< 
i 
i 

< 
t 
i 



i 






. CHKT 



liDX-nus tri ! uvt/rj.ay 
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3 






4 






5 






6 






7 






8 






9 004724 


010146 




10 004726 


010446 




11 004730 


012704 


OOOOOOC 


12 004734 






13 004742 


016401 


OOOOOOG 


14 004746 


00 1 423 




15 004750 


123761 


0000000 OOOOOOG 


16 004756 


001015 




17 004760 


132761 


0000000 OOOOOOG 


IS 004766 


001011 




19 004770 


016164 


OOOOOOG OOOOOOG 


20 004776 






21 005004 


004737 


OOOOOOG 


22 005010 


000747 




23 005012 


010104 




24 005014 


000752 




25 






26 






27 






28 005016 






29 005024 


012604 




30 005026 


012601 




31 005030 


000207 





CAWMKT is called to cancel ail mark-time requests for the current job. 
It is called when a . CMKT EMT is done uith an id of or when a job 
exits. 



Inputs: 
MRKTHD = Head of mark-time queue chain. 



CANMKT: 

1$: 

2<P: 



3$: 



MOV 

MOV 

MOV 

DISABL 

MOV 

BEQ 

CMPB 

BNE 

BITS 

BNE 

MOV 

ENABL 

CALL 

BR 

MOV 

BR 



Finished 



4*: 



ENABL 
MOV 
MOV 
RETURN 



R 1 , - < SP ) 
R4, -(SP) 
#MRKTHD-CQ*LNK, R4; DUMMY POINTER TO LIST HEAD 

: «* DISABLE «•* 
CQ*LNK<R4), Rl ; GET NEXT ENTRY IN LIST 
4* iBR IF REACHED END OF LIST 

CORUSR, CQ*JOB<Rl)i IS THIS ENTRY FOR THIS JOB? 
3* J BR IF NOT 

#QF*IOT, CQ*FLG(R1 )i IS THIS A HANDLER . TIMIO ENTRY? 
3* 5 BR IF YES 

CQ*LNK(Rl),Ca*LNK<R4)i RELINK LIST AROUND US 

i ** ENABLE «••«■ 

; RETURN QUEUE ELEMENT TO FREE LIST 



QFREE 
1* 

R1,R4 
2* 



iLINK TO NEXT ELEMENT IN LIST 



; «* ENABLE «•* 



<SP)+, R4 
(SP)+, Rl 



I 
f 
( 

I 
< 

i 
< 
I 
i 
i 
i 

€ 

I 

( 
i 
i 
i 

i 

i 



. CSTAT 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



ii •»- ^*^ 



(i3A-rj.u5 tJii uvenay 



\ f\ I t r^ »— 



005032 013703 0000000 
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. SBTTL . CSTAT 
i Return channel status 

i 

CHSTAT: MOV CHNADR, R3 

i 

; Make sure channel is open. 



J GET ADDRESS OF CHANNEL BLOCK 



005036 032763 

005044 001003 

005046 005000 

005050 000137 



005054 
005060 
005062 



013704 
010400 
004737 



005066 010437 



005072 
005076 

005100 
005104 

005106 
005112 

005114 
005120 

005122 
005124 
005130 

005132 
005136 
005142 
005146 



1 6346 
106624 

016346 
106624 

016346 
106624 

016346 
106624 

005046 
116316 
106624 

016301 

042701 
016146 
106624 



OOOOOOG OOOOOOG 
OOOOOOG 

000002G 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 

177701 

OOOOOOG 



005150 000137 OOOOOOG 



BIT #CS*OPN, C. CSW(R3)i IS THE CHANNEL OPEN? 

BNE 1* iBR IF YES 

CLR RO i RETURN ERROR CODE OF 

JMP SETERR 



Channel is open. Return status. 



i GET ADDRESS OF USER'S STATUS BLOCK 
i VALIDATE ADDRESS 



MOV EMTBLK+2> R4 

MOV R4, RO 

CALL VALADW 
Point RO to user's channel status block passed in EMT argument 

MOV R4, URO ; Point RO to channel status block 

Return CSW 

MOV C. CSW(R3), -<SP) 

MTFD <R4)+ 
Return starting block number of file 

MOV C. SBLK<R3), -<SP> 

MTPD <R4)+ 
Return allocated length of file. 

MOV C. LENG(R3), -<SP) 

MTPD <R4)+ 
Return highest block number written so far 

MOV C. USED(R3),-<SP) 

MTPD (R4)+ 
Return device unit number. 

CLR -(SP) ; ENSURE HIGH BYTE IS CLEAR 

MOVE C.DEVQ<R3), (SP) j MOVE UNIT NUMBER INTO LOW BYTE 

MTPD (R4)+ 
Return Rad50 device name. 

MOV C. CSW<R3),R1 i GET DEVICE TABLE # 

BIC #-X76, Rl J GET DEV # ONLY 

MOV PNAME(Rl), --<SP) ; GET RAD50 DEVICE NAME 

MTPD (R4)+ 



Finished 
JMP 



EMTXIT 



. SBTTL . CDFN 
Define channels. 



005154 013737 000002G OOOOOOG CDFN: MOV 
005162 000137 OOOOOOG JMP 



EMrBLK+2, UCHAN 
EMTXIT 



SAVE ADDRESS OF USER CHANNEL SPACE 



TSEM2 
. GVAL 



TSX~Plus EMT Ove?rlau 



€ 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005166 
005172 
005176 
005200 
005204 
005210 
005212 



005226 
005232 
005234 
005236 
005240 
005244 
005246 
005250 
005254 
005260 
005266 



005272 
005274 
005300 
005302 
005304 
005310 
005312 
005316 
005320 
005324 



005330 
005332 
005334 
005336 
005340 
005342 
005344 
005346 
005350 
005352 
005354 
005356 
005360 



113700 
120027 
1 1 404 
012700 
000137 
006300 
013702 
013703 
000170 



032702 
001005 
005702 
002415 
020227 
103403 
005000 
000137 
063702 
016237 
000137 



005402 
020227 
101403 
005000 
000137 
005000 
016202 
004712 
010037 
000137 



005326 

005372' 

005400' 

005406 

005422' 

005436' 

005444' 

005452' 

005460 

005466 

005510' 

005516 

005544 

005474 
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SBTTL . GVAL 



GVAL.. . PVAL, . PEEK, . POKE 



OOOOOOG 
000003 

177767 
OOOOOOG 

000002G 
0000040 
006024 ' 



000001 



OOOOOOG 



OOOOOOG 
OOOOOOG 
000002 
OOOOOOG 



GVAL: 



1«: 



MOVB 


EMTBLK, RO 


CMPB 


RO, #3 


BLOS 


1* 


MOV 


#~11, RO 


JMP 


SETERR 


ASL 


RO 


MOV 


EMTBLK+2, R2 


HOV 


EMTBLK+4, R3 


JMP 


@GVJMP<RO) 



GET SUB-FUNCTION CODE (.GVAL/. PVAL etc. ) 

MAKE SURE IT IS REASONABLE 

BR IF OK 

INVALID FUNCTION CODE 



GET 2 « FUNCTION CODE 

GET OFFSET VALUE 

GET VALUE TO STORE < . PVAL ^ 

JUMP TO PROCESSING ROUTINE 



POKE) 



.GVAL — Get value from RMON table 



OOOOOOG 



DOGVAL: BIT 
BNE 
TST 
BLT 
CMP 
BLO 

2*: CLR 
JMP 

1$: ADD 
MOV 
JMP 



#1, R2 

2* 

R2 

TSXGVL 

R2, #MAXGVL 

1* 

RO 

SETERR 

CXTRMN, R2 

2<R2),UR0 

EMTXIT 



Get TSX-Plus system value 



000042 

OOOOOOG 

005326 ' 

OOOOOOG 
OOOOOOG 



TSXGVL: NEG 
CMP 
BLOS 
CLR 
JMP 

1$: CLR 
MOV 
CALL 
MOV 
JMP 



Rl 



#MXTSXV 



1* 

RO 

SETERR 

RO 

TSXGVC<R2), R2 

©R2 

ROi URO 

EMTXIT 



> 

; TSX-Plus va] 


lue offs 


TSXGVC = 


. -2 


. WORD 


TGJOBN 


. WORD 


TGLDIN 


. WORD 


TGPRIV 


. WORD 


TGIOMP 


. WORD 


TGPROJ 


. WORD 


TGPROG 


. WORD 


TGLICN 


. WORD 


TGCPRI 


. WORD 


TGMPRI 


. WORD 


TGUCLB 


. WORD 


TGPRIL 


. WORD 


TGSYNM 


. WORD 


TGPRLO 



OFFSET CANNOT BE ODD 



BR 


IF 


ODD 








IS 


OFFSET 


VALUE 


NEGATIVE? 


IF 


YE£ 


; THEN HE'S GETTING 


A 


IS 


IT 


TOO 


BIG? 






BR 


IF 


OK 








RETURN ERROR CODE OF 





TSX-PLUS VALUE 



; ADD BASE ADDR OF USER 'S RMON AREA 
; RETURN VALUE IN USER'S RO 



GET POSITIVE OFFSET VALUE 
IS IT IN LEGAL RANGE? 
BR IF OK 
RETURN ERROR CODE 

INITIALIZE VALUE TO ZERO 

GET ADDRESS OF ROUTINE TO SET VALUE 

CALL ROUTINE TO GET VALUE 

RETURN VALUE TO USER IN RO 

FINISHED 



-4. 

-6. 

-8. 
-10. 
-12. 
-14. 
-16. 
-IS. 
-20. 
-22. 
-24. 
-26. 



— Get job # 

— Get Lead— in character 

— Determine if this is a privileged job 

— Determine if I/O page mapping in effect 

— Job's project number 

— Job's programmer number 

— TSX-Plus site license number 

— Current execution priority 

— Maximum authorized priority 

— Number of data blocks/job in UCL file 

— Primary line # 

— Name of physical SY device 

— Get value of PRILOW 



f 

I 

I 

I 

i 

I 

I 

f 

I 

I 

i 

< 

i 

I 

< 

i 
i 
i 
1 
I 
i 



!SE.n2 


TSX-Plus till Overlay 


GVAL 








58 


005362 


005502' 




59 


005364 


005534' 




60 


005366 


005552' 




61 


005370 


005560' 




62 




000042 




63 








64 








65 








66 


005372 


010100 




bl 


005374 


006200 




68 


005376 


000207 




69 








70 








71 








72 


005400 


113700 


0000000 


73 


005404 


000207 




74 








75 








76 








77 


005406 


032737 


0000000 


78 


005414 


001401 




79 


005416 


005200 




SO 


005420 


000207 




81 








82 








83 








84 


005422 


032761 


ooooooe 


85 


005430 


001401 




86 


005432 


005200 




87 


005434 


000207 




88 








89 








90 








91 


005436 


016100 


ooooooe 


92 


005442 


000207 




93 








94 








95 








96 


005444 


016100 


0000000 


97 


005450 


000207 




98 








99 








100 








101 


005452 


013700 


OOOOOOG 


102 


005456 


000207 




103 








104 








105 








106 


005460 


116100 


OOOOOOG 


107 


005464 


000207 




108 








109 








110 








111 


005466 


1 J. 3700 


OOOOOOG 


112 


005472 


000207 




113 








114 
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-28. 
-30. 
-32. 
-34. 





. WORD 


TGPRHI 




. WORD 


TGPRNT 




. WORD 


TGVERS 




. WORD 


TGRSUB 


MXTSXV 


rz 


<. -TSXGVC; 


; Get 


job numb 


er 



Get value of PRIHI 

Get parent job number 

Get system version number 

Get relative subprocess number 



TGJOBN: MOM R1,R0 

ASR RO 
RETURN 

Get Lead-in character 

TGLDIN: MOVB VTSLCH, RO 
RETURN 



Maximum legal offset value 



i GET JOB INDEX NUMBER 
; CONVERT TO JOB NUMBER 



; GET LEAD-IN CHARACTER VALUE 



Determine if this is a privileged job 



OOOOOOG TGPRIV: BIT #PO*SYS, PR IVCO 

BEQ 1* 

INC RO 
1%: RETURN 



ARE WE PRIVILEGED? 

BR IF NOT 

SET PRIVILEGED FLAG 



Determine if I/O page mapping is in effect 



OOOOOOG TGIOMP: BIT 

BEQ 1* 
INC RO 
1*: RETURN 



#«I0MAP,LSW6(R1); IS I/O PAGE MAPPING IN EFFECT? 

; BR IF NOT 
; SAY MAPPING IS IN EFFECT 



Get Project number 

TGPROJ: MOV LPR0J<R1),R0 
RETURN 

Get programmer number 

TGPROG; MOV LPR0G<R1),R0 
RETURN 



;GET PROJECT # 



; GET PROGRAMMER # 



Get TSX-Plus site license number 

TGLICN: MOV TSXSIT, RO ; GET LICENSE NUMBER 
RETURN 

Get current job e.xecution priority 

TGCPRI: MOVB LPRI<R1),R0 i Get current job priority 
RETURN 

Get maximum authorized job priority 

f'GMPRI: MOVB MXJPRI,RO ; Get maximum authorized execution priority 

RETURN 

i Get value of PRILOW 



-r^-i^ in 1 



r-kji-i- /"%. 



iaiz-riis 


iDX-riu5 till Uveriay 


eVAL 








115 








116 


005474 


1 1 3700 


0000000 


117 


005500 


000207 




n« 








119 








120 








121 


005502 


1 1 3700 


OOOOOOG 


122 


005506 


000207 




123 








124 








125 








126 


005510 


013700 


OOOOOOG 


127 


005514 


000207 




128 








129 








130 








131 


005516 


016100 


OOOOOOG 


132 


005522 


020001 




133 


005524 


001001 




134 


005526 


005000 




135 


005530 


006200 




136 


005532 


000207 




137 








138 








139 








140 


005534 


016100 


0000000 


141 


005540 


006200 




142 


005542 


000207 




143 








144 








145 








146 


005544 


013700 


OOOOOOG 


147 


005550 


000207 




148 








149 








150 








151 


005552 


012700 


OOOOOOG 


152 


005556 


000207 




1 53 








154 








155 








156 


005560 


010546 




157 


005562 


005000 




158 


005564 


020127 


OOOOOOG 


159 


005570 


003414 




160 


005572 


016105 


OOOOOOG 


161 


005576 


016505 


OOOOOOG 


162 


005602 


005200 




163 


005604 


120125 




164 


005606 


001405 




165 


005610 


020027 


OOOOOOG 


166 


005614 


002772 




167 


005616 


012700 


177777 


168 


005622 


012605 




169 


005624 


000207 





S.4 A ^-v r^ r*\ I » /^ I— r^ rt 
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TGPRLO: MOVB VPRILO. RO 
RETURN 

Get value of PRIHI 

TGPRH.I 



Get 
TGUCLB: 

Get 
TGPRIL: 

lH: 

Get 
TGPRNT: 

Get 
TGSYNM: 

Get 
TGVERS; 

Get 
FGRSUB: 



MOVB VPRIHI,RO 
RETURN 

number of blocks per job in TSXUCL data base file 

MOV UCLBLK. RO ; Get number of blocks per job 
RETURN 

number of controlling primary line <0 if we are a primary line) 



MOV 
CMP 
BNE 
CLR 
ASR 
RETURN 



LNPRIM<R1), RO 

RO, Rl 

1* 

RO 

RO 



number of parent job 

MOV LPARNT<R1),R0 

ASR RO 

RETURN 



i Get number of our primary line 

; Are we the primary line? 

; Br if not 

; Return if we are a primary lin« 

; Convert from 2*job # to job # 



; Get parent job index number 
; Convert to job number 



physical name of SY device 

MOV SYNAME, RO ; Get SY physical device name 
RETURN 



system version number 

MOV #TSXVRS, RO 
RETURN 



;Get system version number 



relative subprocess number 



1$: 



a^: 



MOV 

CLR 

CMP 

BLE 

MOV 

MOV 

INC 

CMPB 

BEG 

CMP 

BLT 

MOV 

MOV 

RETURN 



R5, -(SP) 

RO 

R 1 , #LSTDL 

S* 

LNPRIM<R1 >,R5 

LSECPT(R5),R5 

RO 

Rl, <R5) + 

8* 

RO, ttMAXSEC 

1* 

#-1, RO 

<SP)+, R5 



Save R5 

Primary and detached are relative 

Is this a virtual line? 

Branch if not 

Get owner line number 

Get pointer to owner's subprocess list 

Count subprocess number 

Is this our line? 

Done if line matches 

Any more possibleT' 

Keep checking if so 

Whoa! This should never happen! 

Restore R5 



t 



GVAL 



t.ri ! uveriay 
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21 
22 



3 

5 005632 

6 005634 

7 005640 

8 005642 

9 005646 

10 005654 

11 005660 
12 

13 
14 

15 005664 

16 005670 

17 005672 
IS 005676 

19 005700 

20 005704 
005706 
005712 

23 005716 

24 005722 
25 

26 005726 

27 005734 

28 005736 
29 

30 
31 

32 005740 

33 005744 

34 005746 

35 005752 

36 005754 

37 005760 

38 005762 

39 005766 

40 005772 

41 005776 

42 006000 
43 

44 006004 

45 006012 

46 006014 
47 

48 
49 

50 006016 

51 006020 
52 

53 
54 

55 006024 

56 006026 

57 006030 



PVAL 



Store value into monitor table 



ULJki/Ok' 
001071 
020227 
101066 
063702 
016237 
010362 
000137 



032702 
001052 
020227 
103413 
020227 
101010 
162702 
063702 
011237 
000137 



001430 
000767 



032702 
001024 
020227 
103414 
020227 
101011 
162702 
063702 
011237 
010312 
000137 

032737 
001401 
000766 



005000 
000137 



005226 ■' 
005664' 
005626' 



UUOOUl 

OOOOOOG 

OOOOOOG 

000002 OOOOOOG 

000002 

OOOOOOG 



000001 
OOOOOOG 

ooooooc 

177776G 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



PVAL: BIT #1,R2 

BNE GVBAD 

CMP R2, #MAXGVL 

BHI GVBAD 

ADD CXTRMN, R2 

MOV 2<R2),UR0 

MOV R3>2<R2) 

JMP EMTXIT 



IS ADDRESS ODD? 

BR IF YES — ERROR 

IS VALUE IN PROPER RANGE7' 

BR IF NOT 

ADD BASE ADDRESS OF JOB'S RMON AREA 

RETURN ORIGINAL VALUE IN RO 

STORE NEW VALUE 

FINISHED 



.PEEK -— Get value from specified memory location 



PEEK: 



PKGET: 

; Peek 
PKLOW; 



BIT 

BNE 

CMP 

BLO 

CMP 

BHI 

SUB 

ADD 

MOV 

JMP 

into 

BIT 

BEQ 

BR 



#1, R2 

GVBAD 

R2, #RMNBAS 

PKLOW 

R2, #RMNBAS+MAXGVL 



PKLOW 

#<RMNBAS-2>, R2 
CXTRMN, R2 
(R2), URO 
EMTXIT 
low memory btbb or 
#PO*MEM, PRIVCO 
GVBAD 
PKGET 



IS ADDRESS ODD? 

BR IF YES — ERROR 

IS ADDRESS WITHIN RMON TABLE? 

BR IF TOO LOW 

IS IT TOO BIG? 
BR IF YES 

MAKE ADDRESS INTO OFFSET 
ADD BASE ADDRESS OF JOB'S RMON AREA 
RETURN VALUE 



I/O page 

; Are we authorized to access phys memory? 



;BR IF NOT 

i GO GET THE VALUE 



POKE — Store value into specified memory location 



000001 

OOOOOOG 

OOOOOOC 

177776G 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



POKE: 



POVAL 



> Poke 
POLOW: 



BIT 

BNE 

CMP 

BLO 

CMP 

BHI 

SUB 

ADD 

MOV 

MOV 

JMP 

into 

BIT 

BEQ 

BR 



#1, R2 

GVBAD 

R2, #RMNBAS 

POLOW 

R2, #RMNBAS+MAXGVL 



ODD' 



IS ADDRESS 
ERROR IF YE 
IS ADDRESS WITHIN 
BR IF TOO LOW 
IS IT TOO BIG? 



RMON TABLE? 



POLOW 

#<:RMNBAS-2>, R2 
CXTRMN, R2 
<R2), URO 
R3, <R2) 
EMTXIT 
low memory or 1/0 
#PO*MEM, PRIVCO 
GVBAD 
POVAL 



Invalid offset specified 



OOOOOOG 



GVBAD: CLR 
JMP 



RO 
SETERR 



; BR IF YES 
■> CONVERT TO OFFSET 
i ADD BASE OF JOB'S 
; GET ORIGINAL VALUE 
i SET NEW VALUE 
i FINISHED 
page 
i Are we authorized to 
; BR IF NOT 
; GO STORE VALUE 



; RETURN ERROR # 



WITHIN TABLE 
RMON AREA 



access phys memory? 



Sub-function jump vector 

GVJMP: . WORD DOGVAL 
. WORD PEEK 
. WORD PVAL 



- . GVAL 

1 - . PEEK 

2 - . PVAL 



{ 



1 £ji.i ic; iijA-rj.u3 CI 1 1 uvt^'riciy iif^\..nu v\ju.<j^ t~rit)au l3-Dec~B7 1 4 : Ok' FaOB 'ri/~l 

. GVAL 

58 006032 005740' .WORD POKE i3 - .POKE 



h-*\/-%r>/"* ii.*%t— r\rt 



Tbtriii 


laX-rlus hrii UvKriay rim;Ku v 


EXIT 

1 
2 
3 














4 








5 


006034 


005061 


0000000 


6 








7 








8 








9 


006040 


032761 


OOOOOOC 0000000 


io 


006046 


001422 




11 








12 


006050 


012704 


000510 


13 


006054 


106524 




14 


006056 


012602 




15 


006060 


020227 


000266 


16 


006064 


101402 




17 


006066 


012702 


000266 


18 


006072 


012703 


0000100 


19 


006076 


010223 




20 


006100 


001405 




21 


006102 


005202 




22 


006104 


006202 




23 


006106 


106524 




24 


006110 


012623 




25 


006112 


077203 




26 








27 








28 








29 


006114 


004737 


0000000 



riMv-rxu vuD. UH i-rioay JLU-uec-a/ m: v,:f. t^age =.'a 

. BBTTL .EXIT 

> Pr Digram exit 

i 

EXIT: CLf? LEMTPC<R1) i CLEAR ADDRESS OF LAST USER-MODE EMT 

; See if program wants to pass some commands to TSKMON. 

i 

BIT #PASLIN!SCHAIN, LJSW<Rl)iDOES PROGRAM WANT TO PASS COMMANDS? 

BEQ 2* ; BR IF NOT 

i Move commands from job chair) data area to context area chain data cell. 

.i ADDRESS OF CELL WITH BYTE COUNT 
; GET COUNT OF # BYTES TO MOVE 

i LIMIT TO LARGEST POSSIBLE SIZE 
i BR IF OK 

3«: MOV #CINDAT+10, R3 ; POINT TO CHAIN DATA CELL IN CONTEXT AREA 

STORE BYTE COUNT 

BR IF NULL COMMAND BEING PASSED TO US 

ROUND UP 

GET # WORDS TO MOVE 
1*: MFPD (R4)+ J GET NEXT WORD OF DATA TO MOVE 

MOVE TO CONTEXT AREA 

MOVE ALL OF COMMANDS 



MOV 


#510, R4 


MFPD 


(R4) + 


MOV 


( SP ) +, R2 


CMP 


R2, #<1000-512> 


BLOS 


3* 


MOV 


#< 1 000-5 12>,R2 


MOV 


#CINDAT+10, R3 


MOV 


R2, (R3) + 


BEQ 


2* 


INC 


R2 


ASR 


R2 


MFPD 


(R4) + 


MOV 


<SP)+, (R3) + 


SOB 


R2, 1* 



Stop program execution and enter TSKMON 



?*: 



CALL 



STOP 



i TERMINATE PROGRAM EXECUTION 



liitnc; itjA-f-'ius ten uvenay 
TTEMT — Terminal control EMT 



ri/K,i<u vuo. ut i-ritiay ia-Dec-B/ 14:02 Hage =.'V 



1 

3 
4 
5 
6 
7 

a 

9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



SBTTL TTEMT 



— lerminal control EMT 



006120 
006124 
006130 
006132 
006136 
006140 
006142 
006146 
006154 
006160 
006162 



006166 
006172 



013702 
162702 
100416 
020227 
103013 
006302 
013700 
016237 
004737 
000000 
000137 



012700 
000137 



The terminal control EMT is used to perform all of the terminal 
control functions that can also be performed by use of the 
lead-in type terminal functions. 
The form of the EMT argument block is: 

. BYTE O, 152 

.WORD function., value 

.WORD controi„.yalue 

Where "f unc t ion_value" corresponds to the value of the ascii character 
that would be used with the lead-in sequence* and "control__value" 
corresponds to the letter that would be sent as an argument to some 
of the control function&. 



0000020 
000101 

OOOOOOG 



000004G 

006176' 006160' 
OOOOOOG 

OOOOOOG 



000001 
OOOOOOG 



TTEMT: 



1$: 



MOV 


EMTBLK+2, R2 




SUB 


#'A, R2 




BMI 


9* 




CMP 


R2, #MAXCC 




BHIS 


9* 




ASL 


R2 




MOV 


EMTBLK+4, RO 




MOV 


TTFUN<R2), 1* 




CALL 


OVRHC 




. WORD 







JMP 


EMTXIT 





; Get f unc tion._ value 

; Convert letter into index value 

; Br if not legal value 

i Is the letter ok 7' 

i Br if too big 

; Convert to word table index 

j Get controi_value 

; Set address of processing routine 

iCall overlay handler 

i Store address of routine to call here 

; Finished 



Error — Invalid function value 



9*: 



MOV 
JMP 



#1, RO 
SETERR 



i Return error code 1 





T3En2 


TSX-Piu 


s EMI Ov 




TTEMT - 

1 

2 
3 


- Terminal cont 










4 


006 1 76 


uuouoo« 




5 


006200 


OOOOOOG 




6 


006202 


OOOOOOG 




7 


006204 


OOOOOOfe 




S 


006206 


0000000 




9 


006210 


0000000 




10 


006212 


OOOOOOG 




11 


006214 


OOOOOOG 




12 


006216 


OOOOOOG 




13 


006220 


OOOOOOG 




14 


006222 


OOOOOOG 




15 


006224 


OOOOOOG 




16 


006226 


OOOOOOG 




17 


006230 


OOOOOOG 




18 


006232 


OOOOOOG 




19 


006234 


OOOOOOG 




20 


006236 


OOOOOOG 




21 


006240 


OOOOOOG 




22 


006242 


OOOOOOG 




23 


006244 


OOOOOOG 




24 


006246 


OOOOOOG 




25 


006250 


OOOOOOG 




26 


006252 


OOOOOOG 




27 


006254 


OOOOOOG 




28 


006256 


OOOOOOG 




29 


006260 


OOOOOOG 











hriday la-Uec-B/ 14: Qi' l-'age \du 



i 

€ 



J Vector of a 


ddresses of processing 


routines 


IIFUN: . WORD 


SETRBF 


; A 




. WORD 


CMDB 


;B 




. WORD 


CMDC 


; C 




. WORD 


GTSPAC 


; D 




. WORD 


CMDE 


iE 




. WORD 


CMDF 


,F 




. WORD 


CMDG 


,G 




. WORD 


CMDH 


■H 




. WORD 


CMDI 


, T 




. WORD 


CMDJ 


J 




. WORD 


CMDK 


K 




. WORD 


CMDL 


L 




. WORD 


CHDM 


M 




. WORD 


CMDN 


N 




. WORD 


CMDO 







. WORD 


RSSPAC 


P 




. WORD 


SFWAC 


Q 




. WORD 


CMDR 


R 




, WORD 


CMDS 


S 




. WORD 


CMDT 


T 




. WORD 


CMDU 


U 




. WORD 


SFWL 


V 




. WORD 


CMDW 


w 




. WORD 


CMDX 


X 




. WORD 


CMDY 


Y 




. WORD 


CMDZ 


I 








SNDMSG - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3o 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



lisA-i-'ius ti'M uveriay 
■•- Send a messagp to a 1 
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ine- 



. SDTTL SNDMSG 



Bend a message to a line 



Send an asciz message to a line. 
EM7 argument block format: 

. BYTE Sub-function, 127 

. WORD Line -numb ei^ 

. WORD Buff er-addTe'B& 



Where Sub-function is: 

No— gag— oveTride 
Hang 

Error 2 



006262 
006270 
006272 
006274 
006300 
006306 
006310 



006316 
006322 
006324 
006330 
006332 
006336 
006340 
006346 
006350 
006356 
006360 
006366 
006370 
006376 
006400 
006406 
006410 
006414 



006420 
006424 
006426 
006432 



006436 
006442 
006444 
006450 



032737 
001003 
005000 
000137 
032737 
001003 
042737 



013703 
006303 
020327 
103473 
020327 
101070 
032763 
00 1 464 
032763 
001060 
032763 
001414 
032763 
001010 
032737 
001004 
012700 
000137 



004737 
103004 
012700 
000137 



013703 
010300 
004737 
010402 



0000000 OOOOOOG 



OOOOOOG 
OOOOOOG 

000001 



000002G 

000002 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000001 

000001 
OOOOOOG 

006526' 

000002 
OOOOOOG 

000004G 
OOOOOOG 



OOOOOOG 
OOOOOOG 



SNDMSG: BIT 
BNE 
CL.R 
JMP 

4*: BIT 
BNE 
BIC 



#PO*SND, PRIVCO 

4* 

RO 

SETERR 

#PO$OPR, PRIVCO 

5* 

#1, EMTBLK 



Gag-override 
1 

3 

; Are u>e authorized to send messages? 

i Br if yes 

i Return error code 

; Does user have OPER privilege? 

; Br if yes 

i Cannot override gag unless oper privilege 



See if a valid job number was specified. 



5*; 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV EMTBLK+2, R3 

ASL R3 

CMP R3, #2 

BLO 9* 

CMP R3, #LSTSL 

BHI 9* 

BIT #*DILUP,LSW<R3) 

BEQ 9* 

BIT #*DETCH> 1 .SW < R3 } 

BNE 9* 

BIT #*TTGAG, LSW7(R3) 

BEQ 3* 

BIT #*INKMN.. LSW4(R3) 

BNE 3* 

BIT #1> EMTBLK 

BNE 3« 

MOV #1,R0 

JMP SETERR 

Get a free message bufff-r. 



GET NUMBER OF LINE TO RECEIVE MESSAGE 

CONVERT TO JOB INDEX NUMBER 

CAN'T BE LESS THAN 2 

BR IF TOO SMALL 

MAKE SURE NOT TOO LARGE 

BR IF TOO LARGE 

IS JOB LOGGED ON? 

BR IF NOT 

IS JOB A DETACH LINE? 

BR - DETACH LINES CAN'T RECEIVE 

IS LINE GAGGED? 

BR IF NOT 

IS KMON RUNNING NOW? 

BR IF YES 

DOES HE WANT TO OVERRIDE GAG? 

BR IF YES 

RETURN ERROR CODE 1 IF LINE IS GAGGED 



3*: 



CALL 


GTMSBF 


BCC 


6* 


MOV 


#2, RO 


JMP 


SETERR 



GET A FREE MESSAGE BUFFER 

CONTINUE IF NO ERROR 

RETURN ERROR CODE 2 IF NO MESSAGE BUFFERS 



Move message from user's buffer to system message buffer. 

6$: MOV EMTBLK+4.. R3 i GET ADDRESS OF USER'S MESSAGE BUFFER 

; VALIDATE ADDRESS 

i GET ADDRESS OF SYSTEM MESSAGE BUFFER BLOCK 



MOV 


EMTBLK+4.. R3 


MOV 


R3, RO 


CALL 


VALADB 


MOV 


R4,R2 



I iDtHci i&A-h'Xus ti'i I uveriay rtrtiKU 

SNDMSG — Send a messaqe to a line 
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58 


006452 


062702 


OOOOOOG 


59 


006456 


010405 




60 


006460 


062705 


OOOOOOG 


61 


006464 


00473/ 


OUOOOOG 


62 


006470 


1 1 0022 




63 


006472 


001403 




64 


006474 


020205 




65 


006476 


103772 




66 


006500 


105042 




67 








68 








69 








70 


006502 


013701 


0000020 


71 


006506 


006301 




72 


006510 


004737 


006650' 


73 








74 








75 








76 


006514 


000137 


OOOOOOG 


77 








78 








79 








SO 


006520 


005000 




81 


006522 


000137 


OOOOOOG 



1«: 



ADD 


#SB*TXT,R2 


MOV 


R4, R5 


ADD 


#SB*END. R5 


CALL 


GETUCH 


MOVE 


RO, (R2) + 


BEQ 


2* 


CMP 


R2, R5 


BLO 


1« 


CLRB 


~(R2) 



POINT TO MESSAGE STORAGE AREA 

POINT TO END OF MESSAGE AREA 

GET CHAR FROM USER'S BUFFER 

MOVE TO SYSTEM MESSAGE BUFFER 

BR IF REACHED END 

REACHED END OF BUFFER SPACE? 

BR IF NOT 

Store null at end of message 



Queue the message for the receiving job. 



?*: 



9$: 



MOV 




EMTBLK+2, R 1 


ASL 




Rl 


CALL 




QMSG 


F i n i B h e d 






JMP 




EMTXIT 


Invalid 1 


ine 


# 


CLR 




RO 


JMP 




SETERR 



GET # OF RECEIVING JOB 
CONVERT TO JOB INDEX # 
QUEUE MESSAGE FOR JOB 



RETURN ERROR CODE O 



TSEM2 
GTMSBF 
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— Get free system message buffer 






SBTTL GTMSBF — Get free system message buffer 



3 
4 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



GTMSBF is called to get a free system message buffer block. 

If none are available* the job is suspended until one becomes free. 



Outputs: 
R4 = Address of message block acquired. 



006526 

006534 005737 

006540 003004 

006542 032737 

006550 001035 

006552 013704 

006556 001013 

006560 032737 

006566 001026 



OOOOOOG 

000002 OOOOOOG 

OOOOOOG 

000002 OOOOOOG 



GTMSBF: 


DISABL 






TST 


NMUMB 




BGT 


3* 




BIT 


#2.. EMTBLK 




BNE 


7* 


3$: 


MOV 


SNMSHD, R4 




BNE 


1* 




BIT 


#2, EMTBLK 




BNE 


7* 



*« DISABLE ** 

ARE THERE ANY AVAILABLE MESSAGE BLOCKS? 

BR IF SO 

DOES USER WANT TO WAIT? 

BR IF NOT 

GET ADDRESS OF 1ST FREE BLOCK 

BR IF OK 

DOES USER WANT TO WAIT? 

BR IF NOT 



No message buffers available. 

Suspend job until one becomes available. 



006570 012700 OOOOOOG 

006574 004737 OOOOOOG 

006600 004737 OOOOOOG 

006604 000750 



006606 005337 OOOOOOG 

006612 016437 OOOOOOG OOOOOOG 

006620 

006626 010400 

006630 062700 OOOOOOG 

006634 010064 OOOOOOG 

006640 000241 

006642 000401 



006644 000261 



006646 000207 



?*: 



MOV 


#S*WSMB> RO 


CALL 


QNSPND 


CALL 


CHKABT 


BR 


GTMSBF 



WAIT FOR MESSAGE BUFFER STATE. 
WAIT FOR MESSAGE BUFFER ** ENABLE *# 
WERE WE ABORTED WHILE ASLEEP? 
TRY AGAIN 



i Got a buffer. Unlink from free chain. 

> 

1*: DEC NMUMB J ONE LESS FREE BUFFER 

MOV SB*LNK(R4), SNMSHD; REMOVE FROM FREE LIST 

ENABL i ■«■* ENABLE «•# 

MOV R4,R0 ; INITIALIZE SB*PNT 

ADD #SB*TXT> RO 

MOV RO, SB*PNT<R4) 

CLC i SAY NO ERRORS 

BR 9* 

> 

; No free message buffers, flag error return 



7$: 



SEC 



; Finished 

i 

9$: RETURN 



1 ocric: iaA~rius en i uvt'Tiay 

QMSG — Queue a messaae? for a 
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J o b 
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3 








4 








5 








6 








7 








8 








9 


006650 


010146 




10 








11 








12 








13 


006652 






14 


006660 


016101 


0000000 


15 


006664 


016100 


OOOOOOG 


16 


006670 


001411 




17 


006672 


005760 


0000000 


18 


006676 


001403 




19 


006700 


016000 


OOOOOOG 


20 


006704 


000772 




21 


006706 


010460 


OOOOOOG 


22 


006712 


000402 




23 


006714 


010461 


OOOOOOG 


24 


006720 


005064 


OOOOOOG 


25 


006724 






26 








27 








28 








29 


006732 


116101 


OOOOOOG 


30 


006736 


004777 


OOOOOOG 


31 








32 








33 








34 


006742 


012601 




35 


006744 


000207 





. SBTTL QMSG — Queue a message for a job 

QMSG is called to queue a system message for a job. 

Inputs; 
Rl = Job number that is to receive message. 
R4 = Address of system message buffer. 

QHSG; MOV R1,-(SP) 

Add message buffer to queue for line 



1$; 



3$; 
4*; 



DISABL 

MOV 

MOV 

BEQ 

TST 

BEQ 

MOV 

BR 

MOV 

BR 

MOV 

CLR 

ENABL 



LNPRIM(Rl), Rl 

LMSGBF(Rl), RO 

3* 

SB*LNK(RO) 

2* 

SB*LNK(RO),RO 

1* 

R4, SB*LNK<RO) 

4« 

R4, LMSGBF<R1) 

SB*LNK(R4) 



*■» DISABLE *# 

OBTAIN THE CURRENT PRIMARY LINE NUMBER 

GET ADDRESS OF HEAD OF MESSAGE LIST FOR JOB 

BR IF NO MESSAGES QUEUED FOR JOB 

IS THIS LAST ENTRY IN LIST? 

BR IF YES 

CHAIN TO NEXT QUEUED MESSAGE BLOCK 

; ADD OUR MESSAGE TO TAIL OF LIST 

;ADD OUR MESSAGE BLOCK TO LIST FOR JOB 
; SAY WE ARE AT END OF LIST 
; ** ENABLE ** 



Initiate transmission to the line. 



MOVB 
CALL 

Finished 

MOV 
RETURN 



LNMAP < R 1 ) , R J 

©TRNSTR 



<SP)+,R1 



i GET VIRTUAL LINE # 

i INITIATE TRANSMISSION 



ASTXIT 
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— Exit from completion routine 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



006746 



006746 013702 0000000 

006752 020227 OOOOOOG 

006756 001002 

006760 000137 0000000 

006764 012237 OOOOOOG 

006770 010237 OOOOOOG 

006774 000137 OOOOOOG 



. SBTTL ASTXIT — Exit from completion routine 
The ASTXIT EMT is used to exit from a user completion routine. 
ASTXIT: 
i Set up information that will sidetrack control in EMTXIT. 

i 

; Get pointer to top entry on return stack 
i Were lue expecting a completion routine exit? 
; Br if yes 

J Illegal EMT if nothing on cpl rtn return stk 
1*: MOV <R2)+, EMTRAD ; Set return address for compl routine 

j Save new stack pointer 
> EMTXIT will do the actual exit for us 



MOV 


EMTCAD> R2 


CMP 


R2, #EMTCAS 


BNE 


1* 


JMP 


BAOEMT 


MOV 


<R2)+, EMTRAD 


MOV 


R2, EMTCAD 


JMP 


EMTXIT 



TSEn2 


1 ibX-l-'i u 


5 t. I'l 1 u V B r 1 a y 


SPCPS - 

1 
2 
3 
4 
5 
6 
7 


— Alter 


exit ati dress fr 


007000 


105737 


ooooooe 


8 


007004 


001003 




9 


007006 


005000 




10 


007010 


000137 


OOOOOOG 


11 


007014 


005737 


OOOOOOG 


12 


007020 


001404 




13 


007022 


012700 


000001 


14 


007026 


000137 


0000000 


15 


007032 


013700 


0000020 


16 


007036 


004737 


OOOOOOG 


17 


007042 


010037 


OOOOOOG 


IS 


007046 


000137 


OOOOOOG 
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)m a completion routine 



. SBTTL . SPCPS 



A3ter exit address from a completion routine 



The . SPCPS EMT is used to set a address that is used to control the 
mainline code execution on exit from a completion routine. 
The real work to accomplish this is done in SYSXIT. 

ARE WE IN A COMPLETION ROUTINE NOW? 

BR IF YES 

RETURN ERROR CODE IF NOT 

; IS ANOTHER . SPCPS PENDING NOW? 

J BR IF NOT 

; RETURN ERROR CODE 1 IF YES 

GET ADDRESS OF USER'S INFORMATION BLOCK 

VALIDATE THE ADDRESS 

SAVE ADDRESS OF INFO BLOCK 

EXIT — SYSXIT WILL DO REAL PROCESSING 



ESPCPS: 


TSTB 


CURCP 




BNE 


1* 




CLR 


RO 




JMP 


SETERR 


1*: 


TST 


SPCPS 




BFQ 


2$ 




MOV 


#1, RO 




JMP 


SETERR 


2*: 


MOV 


EMTBLK+2, RO 




CALL 


VALADW 




MOV 


RO, SPCPS 




JMP 


EMTXIT 



TSEM2 TSX-Plus EMT Overlay 
EHT376 — EMT 376 Processing 



1 
2 
3 

A 






I • ( i u ci y 



-a/ m: Uc' rajge jo 



5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



007052 
007056 
007060 
007064 
007070 
007072 
007074 
007100 
007102 



007106 
007112 
007120 



120427 
001011 
013704 
106564 
012600 
000300 
120027 
001402 
000137 



010437 
012737 
004737 



000376 

0000000 
000002 



000373 
OOOOOOG 



. SBTTL EMT376 — EMT 376 Processing 
Process EMT 376 



Inputs: 
R4 = EMT function code. 



EMT376: 


CMPS 


R4, #376 




BME 


1* 




MOV 


EMTADR, R4 




MFPD 


2(R4> 




MOV 


(SP)+, RO 




SWAB 


RO 




CMPB 


RO, #373 




BEQ 


2* 


1*: 


JMP 


BADEMf 



Over 1 an I/O error 



OOOOOOG 

177750 OOOOOOG 

OOOOOOG 



MOV 


R4, ABRTAD 


MOV 


#-30, ABRTCD 


CALL 


STOP 



; Is this an EMT 376? 

i Br if not 

i Get address of EMT instruction 

iGet value that follows instruction 

; Get code word 

; Get code byte to low-order 

i Overlay I/O error? 

; Br if yes 

i Invalid EMT if not 



; Set address of abort 
; Set abort code 
J Abort the job 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL JBINFO — Get information about a specific job 

The JBINFO EMT is used to obtain information about a specific job. 

The form of the EMT argument block is: 

+ + + 

I 144 I ! 

+. 4. 4 

!Bub Fun. I Job # I 

4. H 4. 

i Result buf addr I 
+ + 

Get Subfunction number and check its range 



007124 
007130 
007134 
007136 
007142 



113705 
020527 
101404 
012700 
000137 



0000030 
000011 

000001 
OOOOOOG 



JBINFO: MOVB 
CMP 
BIOS 
MOV 
JMP 



EMTBLK+3, R5 
R5, #MXJIFN 
1* 

#1, RO 
SETERR 



GET SUB-FUNCTION NUMBER 

IS IT TOO BIG? 

BR IF OK 

ERROR CODE 1 IF TOO BIG 



Subfunction number is valid. 
Check job number. 



007146 
007152 
007154 
007156 
007162 
007164 
007170 



007174 
007202 

007204 
007206 



007212 
007216 
007220 



113701 
001404 
006301 
020127 
101404 
012700 
000137 



032761 
001003 
005000 
000137 



013704 
010400 
004737 



000002G 



OOOOOOG 

000002 
OOOOOOG 



1*: 



2*: 



MOVB 


EMTBLK+2, Rl 


BEQ 


2* 


ASL 


Rl 


CMP 


Rl, #LSTSL 


BLOB 


3« 


MOV 


#2, RO 


JMP 


SETERR 



GET SPECIFIED JOB NUMBER 

ZERO IS INVALID 

CONVERT TO LINE INDEX NUMBER 

IS IT A VALID NUMBER? 

BR IF YES 

ERROR 2 IF INVALID LINE NUMBER 



See if line is currently logged on 



OOOOOOG OOOOOOG 3$: 



OOOOOOG 

000004G 
OOOOOOG 



BIT #*KINIT, LSW<R1) 

BNE 4* 

CLR RO 

JMP SETERR 



IS THE LINE LOGGED ON NOW? 

BR IF YES 

ERROR # IF NOT 



Check the address specified for the user's result buffer 
4*: MOV EMTBLK+4, R4 ; GET USER'S VIRTUAL ADDRESS 

} MAKE SURE ADDRESS IS REASONABLE 



MOV 
MOV 
CALL 



EMTBLK+4, R4 
R4, RO 
VALADW 



Everything looks good. 

Branch off to processing routine based on sub-function number. 

At this point the following registers are set up: 

Rl = Line index number for job about which information is desired. 

R4 = Address of user's buffer where result is to be placed. 

R5 = Sub function index number. 



006305 
000175 



007232 005000 



007562 ' 



ASL R5 

JMP @JIJMPX(R5) 

#0 — Get job status flags 

J I STAT: CLR RO 



; CONVERT SUB-FUNCTION # TO WORD INDEX 
i ENTER PROCESSING ROUTINE 



i DEVELOP FLAGS IN RO 



I 
I 
f 
I 
I 

I 
< 
I 



4 
< 

i 



TSEM2 
JBINFO - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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007234 
007240 
007242 
007246 
007250 
007254 
007256 

007262 
007270 
007272 

007276 
007300 
007306 
007310 
007314 
007316 
007322 
007326 
007334 
007342 
007344 
007350 
007356 
007360 



007362 
007366 
007372 
007374 
007376 
007400 
007404 
007406 
007410 
007412 
007414 



007416 
007422 
007426 
007430 
007432 



007436 
007442 
007446 



020127 
101410 
020127 
101403 
052700 
000402 
052700 

032761 
001402 
052700 

010046 

103002 
004737 
010102 
012703 
012700 

032777 
001402 
052716 

012600 



012700 
116102 
120220 
001406 
005200 
020027 
103772 
005000 
000406 
111000 
000404 



016100 
066100 
010046 
106614 
000137 



013700 
166100 
000767 



i See 
0000000 

OOOOOOG 

0000000 

OOOOOOG 2$: 

i See 
OOOOOOG OOOOOOG 1*: 



OOOOOOG 



OOOOOOG 

OOOOOOG 
000002 

OOOOOOG OOOOOOG 

OOOOOOG 



; See 
4$: 



6*: 



5«: 



if job is detached or vir 

CMP R1,#LSTPL 

BLOS 1* 

CMP R1,#LSTDL 

BLOS 2* 

BIS #JIVLN, RO 

BR 1* 

BIS #JIDLN, RO 

if job is locked in memor 

B I T #*MLDCK. LSW6 < R 1 ) 

BEQ 4* 

BIS #JIMLOK, RO 

if job has operator privi 

MOV RO, -<SP) 

OCALL GETCXT 

BCC 6* 

CALL STOP 

MOV R 1 , R2 

MOV #PRIVCO, R3 

MOV #2, RO 

OCALL REDCXT 

BIT #PO$SYS, ©CXTBUF 

BEQ 5* 

BIS #JIPRIV> <SP> 

OCALL FRECXT 

MOV <SP)+, RO 

BR J I RET 1 



007606 ' 
OOOOOOG 



007672 ' 



#1 -- Get job's run state 
JIRUN: 
1*: 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



#2 - 
JIMEM: 
JIRETl: 

#3 •■ 
JICOIMT: 



MOV 

MOVE 

CMPB 

BEQ 

INC 

CMP 

BLO 

CLR 

BR 

MOVE 

BR 



#JIRNST, RO 

LSTATE<R1), R2 

R2, <R0) + 

2* 

RO 

RO, #JIRNND 

1* 

RO 

JIRETl 

<R0), RO 

JIRETl 



tual 
PRIMARY LINE? 
BR IF YES 
DETACHED LINE? 
BR IF YES 
SET VIRTUAL-LINE FLAG 

J SET DETACHED-LINE FLAG 

y 

; IS JOB LOCKED IN MEMORY? 

; BR IF NOT 

J SET MEMORY-LOCKED FLAG 

lege 

SAVE OUR STATUS CODES 

GET EXCLUSIVE ACCESS TO CONTEXT BUFFER 

BR IF GOT IT 

JOB WAS ABORTED WHILE WAITING 

GET INDEX # OF JOB WE ARE COPYING FROM 

ADDR OF INFO TO GET 

GET # BYTES TO COPY 

GET INFO FROM CONTEXT BLOCK OF OTHER JOB 

IS THIS A PRIVILEGED JOB? 

BR IF NOT 

SET PRIVILEGE FLAG 

FREE THE CONTEXT BUFFER 

GET STATUS FLAGS 

GO RETURN VALUE 



Point to state table 

Get job's current execution state 

Search for state in table 

Br if found it 

Skip over value 

Checked all entries? 

Br if yes 

Don't recognize state, return O 

Return the value 

Get value to return 

Return the value 



Get amount of memory in use by job 



MOV 

ADD 

MOV 

MTPD 

JMP 

- Get 

MOV 
SUB 

BR 



LNBLKS(R1),R0 

LNSBLK<R1),R0 

RO, -<SP) 

(R4) 

EMTXIT 



GET # 256-WORD BLOCKS USED BY JOB 
ADD # BLOCKS USED BY PLAS REGIONS 
STORE VALUE INTO USER'S BUFFER 



i FINISHED WITH EMT 
job connect time (minutes) 



MINTIM, RO 

LC0NTM(R1),R0 

JIRETl 



i GET CURRENT SYSTEM UP-TIME 

J GET # MINUTES JOB HAS BEEN CONNECTED 



#4 — Get base 256-word block # assigned to job area 



i 
\ 



TSt:n2 


T3X-PiU5 tni uverlay 


JBINFO - 


— Get information about 


115 








116 


007450 


016100 


OOOOOOG 


117 


007454 


000764 




lis 








119 








120 








121 


007456 


016102 


0000000 


122 


007462 


016103 


OOOOOOG 


123 


007466 


000411 




124 








125 








126 








127 


007470 


016102 


OOOOOOG 


128 


007474 


016103 


OOOOOOG 


129 


007500 


000404 




130 








131 








132 








133 


007502 


016102 


OOOOOOG 


134 


007506 


016103 


OOOOOOG 


135 


007512 


010246 




136 


007514 


106624 




137 


007516 


010346 




138 


007520 


106624 




139 


007522 


000137 


OOOOOOG 


140 








141 








142 








143 


007526 


116100 


OOOOOOG 


144 


007532 


000735 




145 








146 








147 








148 


007534 


010105 




149 


007536 


012702 


000006 


150 


007542 


070502 




151 


007544 


062705 


OOOOOOG 


152 


007550 


012546 




153 


007552 


106624 




154 


007554 


077203 




155 


007556 


000137 


OOOOOOG 


156 








157 








158 








159 


007562 


007232' 




160 


007564 


007362' 




161 


007566 


007416' 




162 


007570 


007436' 




163 


007572 


007450' 




164 


007574 


007456 ' 




165 


007576 


007470 ' 




166 


007600 


00750r?' 




167 


007602 


007526' 




168 


007604 


007534' 




169 




000011 








vua. UH hr itiay 
specific job 



JISASE: MOV 
BR 



lO-Uec-a/ 14:05 Page jz-ci 



LEASE <R1), RO 
JIRETl 



; GET BASE BLOCK # 



#5 — Get name of progrsni being run by job 



JIPROG: MOV 
MOV 
BR 



LPRGKRl), R2 
LPRG2(R1), R3 
JIRET2 



i GET FIRST 3 CHARS OF NAME 
J GET SECOND 3 CHARS OF NAME 



#6 



Get project/programmer number 



vJIPPN: MOV 
MOV 
BR 



LPR0J<R1), R2 
LPR0G<R1), R3 
JIRET2 



; GET PROJECT NUMBER 

; GET PROGRAMMER NUMBER 



#7 — Get CPU time used by job 



JICPU: MOV 
MOV 

JIRET2: MOV 
MTPD 
MOV 
MTPD 
JMP 



LCPUHI(R1),R2 
LCPUL0(R1).R3 
R2, -<SP) 
<R4) + 
R3, -<SP) 
<R4) + 
EMTXIT 



#8 



Job execution priority 



JIPRIO: MOVE 
BR 



LPRKRl), RO 
J I RET 1 



#9 



Job name 



J I NAME: MOV 
MOV 
MUL 
ADD 

1*: MOV 
MTPD 
SOB 
JMP 



Rl> R5 
#6, R2 
R2. R5 

#LUNAME, R5 
(R5)+, -<SP) 
(R4) + 
R2, 1* 
EMTXIT 



GET HIGH-ORDER CPU TIME 
GET LOW-ORDER CPU TIME 
RETURN FIRST WORD OF RESULT 

; RETURN SECOND WORD OF RESULT 

; FINISHED WITH EMT 



;Get current execution priority for job 

; Return 



; Copy job index number 

; 6 words per name 

; Name should be 12 bytes long 

j Convert to name table index 

/Fetch next two bytes of name 

i Move to user's buffer 

; Loop through uihole name 

J Finished with EMT 



Branch table used to enter job information routines 



JIJMPX: .WORD JISTAT 

. WORD J I RUN 

. WORD JIMEM 

. WORD JICONT 

. WORD JIBASE 

. WORD JIPROG 

, WORD JIPPN 

. WORD JICPU 

. WORD JIPRIO 

. WORD J I NAME 

MXJIFN = «. -JIJMPX>/2> 



— GET JOB STATE FLAGS 

1 — GET JOB RUN STATE CODE 

2 — GET AMT OF MEMORY USED BY JOB 

3 — GET CONNECT TIME FOR JOB 

4 — GET BASE ADDRESS FOR JOB 

5 — GET NAME OF PROGRAM BEING RUN 

6 — GET PROJECT/PROGRAMMER # 

7 ™ GET QP\} TIME USED BY JOB 

8 — GET JOB EXECUTION PRIORITY 

9 — GET JOB NAME 



i 

i 
I 
i 

i 
i 
i 
I 
€ 
€ 
i 

i 
i 
i 
i 
i 
i 
i 
i 
i 



I acne: i oa— r . 
JBINFO — Get 

i 
2 
3 
4 

5 007606 

6 007610 

7 007612 

8 007614 

9 007616 

10 007620 

11 007622 

12 007624 

13 007626 

14 007630 

15 007632 

16 007634 

17 007636 

18 007640 

19 007642 

20 007644 
007646 
007650 

23 007652 
007654 
007656 
007660 
007662 

28 007664 

29 007666 

30 007670 

31 007672 
32 



us tr.iM uvfercicjl) 

information about 



21 

DO 



24 
25 
26 
27 



OOOG 


001 


OOOQ 


001 


OOOG 


001 


OOOG 


002 


OOOG 


003 


OOOG 


004 


OOOG 


005 


OOOG 


006 


OOOG 


007 


OOOG 


010 


OOOG 


Oil 


OOOG 


012 


OOOG 


013 


OOOG 


013 


OOOG 


013 


OOOG 


013 


OOOG 


013 


OOOG 


013 


OOOG 


014 


OOOG 


014 


OOOG 


015 


OOOG 


015 


OOOG 


015 


OOOG 


015 


OOOG 


016 


OOOG 


017 
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a specific job 






i Table used 


t 


o convert 


i externally 


d 


efined run 


JIRNST: . BYTE 




S*TWFN, 1 


. BYTE 




S*OTLO, 1 


. BYTE 




S*IOFN, 1 


. BYTE 




S*CPU, 2 


. BYTE 




S*LOW, 3 


. BYTE 




S*INWT, 4 


. BYTE 




S*OTWT, 5 


. BYTE 




S*TMWT, 6 


. BYTE 




S*SPND, 7. 


. BYTE 




S*SFWT, 8. 


. BYTE 




S*MSWT> 9. 


. BYTE 




S*QUSR, 10. 


. BYTE 




S*IOWT, 11. 


. BYTE 




S«NEDQ, 11. 


. BYTE 




S*QMIO, 11. 


. BYTE 




S*QCCB, 11. 


. BYTE 




SfQSPD, 11. 


. BYTE 




S*WSMB, 11. 


. BYTE 




S*SPDB, 12. 


. BYTE 




S*SPCB, 12. 


. BYTE 




S*TTSC, 13. 


. BYTE 




S*TTFN, 13, 


.BYTE 




S*OTFN, 13. 


. BYTE 




S*HICP, 13. 


. BYTE 




S«RT. 14. 


. BYTE 




S*WFM, 15. 


JIRNND; 







02 Page \Jti 



states. 



EVEN 



Timed wait completion 

Terminal output buffer almost empty 

I/O completion 

Normal priority execution 

Fixed low priority execution 

Waiting for terminal input 

Waiting for terminal output buffer space 

Waiting for timed interval 

Doing . SPND 

Shared file wait 

Waiting for message 

Waiting for USR for file operation 

Waiting for I/O operation 

Waiting for I/O queue element 

Waiting for mapped I/O buffer 

Waiting for cache control block 

Waiting for special device data base 

Waiting for system message buffer 

Waiting for spooled device control block 

Waiting for spooled device control block 

Single char terminal input complete 

Non single char terminal input complete 

Terminal buffer empty 

Interactive job execution 

Fixed high priority 

Waiting for memory expansion 

End of table 



Get terminal type code 



3 
4 
5 
6 
7 
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SBTTL Get terminaJ type code 



This EMT returns in RO a numeric value that indicates 
terminal from which the job is being run. 

The terminal type is declared in the line definition in 
by the SET TERMINAL keyboard command. 



the type of 
TSGEN or 



8 007672 

9 007676 

10 007702 

11 007706 

12 007714 

13 007716 

14 007722 

15 007724 

16 007726 

17 007732 

18 007734 

19 007736 

20 007740 

21 007744 

22 007746 

23 007752 
24 

25 
26 

27 007756 

28 007760 

29 007762 

30 007764 

31 007766 

32 007770 

33 007772 

34 007774 

35 007776 

36 010000 

37 010002 
38 

39 
40 
41 
42 
43 

44 010002 

45 010006 

46 010012 

47 010016 

48 010020 

49 010024 

50 010026 



012702 
016104 
116100 
032760 
001402 
012704 
020422 
001405 
020227 
101773 
005002 
000403 
162702 
006202 
010237 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



013700 
004737 
016146 
106620 
016146 
106620 
000137 



007756 ■' 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



010002' 



007756' 

OOOOOOG 
OOOOOOG 



TRMEMT: MOV #LOTRM. R2 

MOV LTRMTP<R1),R4 

MOVE LNPRIM<R1)>R0 

BIT #*V52EM, LSWl 1 

BEG 1* 

MOV #VT52. R4 

1*: CMP R4, <R2) + 

8EQ 2* 

CMP R2, #HITRM 

BLOS 1* 

CLR R2 

BR 3* 

SUB #LOTRM, R2 

ASR R2 

MOV R2, URO 

JMP EMTXIT 



2*: 



3*: 



; POINT TO START OF TERMINAL TYPE TABLE 
iGET TERMINAL TYPE FLAGS FDR OUR JOB 
; Get out primary line number 
(RO);Are uie emulating a VT52? 
; Br if not 

i Say terminal is a VT52 

> SEARCH FOR MATCHING PATTERN IN TABLE 
; BR IF FOUND 

i HAVE WE SEARCHED ALL OF TABLE? 
; BR IF NOT 
; SAY UNKNOWN TERMINAL TYPE 

i CONVERT TABLE OFFSET TO TERMINAL CODE NUMBER 

; RETURN TERMINAL TYPE CODE # IN USER'S RO 
i FINISHED 



Table to translate terminal type flags into code number. 



LOTRM: 



WORD 


VT52 


WORD 


VTIOO 


WORD 


HAZEL 


WORD 


ADM3A 


WORD 


LA36 


WORD 


LA 120 


WORD 


DIABLO 


WORD 


QUME 


WORD 


VT2007 


WORD 


VT200S 



1 


- 


VT52 




2 


- 


VTIOO 




3 


- 


Hazel tine 




4 


- 


ADM3A 




5 


- 


LA36 




6 


- 


LAI 20 




7 


~ 


Diablo 




8 


" 


Qume 




9 


_ 


VT200 with 7 bit control 


codes 


10 


- 


VT200 with 8 bit control 


codes 



HITRM: 



. SBTTL Get Project-Programmer number 



This emt is used to obtain the current Project-Programmer number 
that a job is running under. 



000002G 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



GETPPN: MOV 
CALL 
MOV 
MTPD 
MOV 
MTPD 
JMP 



GET ADDRESS OF CELL TO RECEIVE PPN 

VALIDATE THE ADDRESS 

MOVE PROJECT # TO USER'S BUFFER 



EMTBLK+2, RO 

VALADW 

LPROJ(Rl), -<SP) 

(R0) + 

LPROG(Rl), (BP) 

<R0)+ iMOVE PROGRAMMER # TO USER'S BUFFER 

EMTXIT J FINISHED 



I 
I 
ff 

f 

€ 
€ 

i 
i 

i 
i 
i 
i 
i 
i 
i 
i 



i 

i 
c 
i 
i 
i 
i 
i 
i 
i 
I 
i 
i 
i 
i 
i 

I 
• i 

I 
i 

i 

i 

i 
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5 
6 
7 

8 010032 
010036 



9 
10 
11 



13 010040 

14 010044 

15 010046 

16 010052 

17 010054 

18 010060 

19 010062 

20 010066 

21 010072 

22 010074 

23 010076 

24 010100 

25 010104 

26 010106 

27 010112 

28 010114 

29 010120 

30 010122 

31 010124 

32 010130 

33 010132 

34 010134 
35 

36 
37 

38 010140 

39 010142 

40 010146 
41 

42 
43 
44 
45 

46 010150 

47 010156 
48 

49 
50 
51 

52 010162 

53 010166 

54 010170 

55 010176 

56 010204 

57 010206 



105737 
001440 



020127 
101406 
020127 
101003 
012700 
000425 
016101 
013705 
001002 
010105 
000411 
020527 
101403 
012700 
000410 
066105 
114505 
006205 
010537 
001012 
005000 
000137 



006201 
010137 
000403 



013737 
000137 



105737 
001407 
052761 
052761 
000764 
042761 
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. SBTTL MISC. TSX EMT'S 



c 



Ihh. . L.NUM EMT RETURNS IN RO THE NUMBER OF THE TSX 

LINE WHICH THE USER IS CONNECTED TO, OR THE LINE NUMBER 

OF THE SPECIFIED SUBPROCESS 



OOOOOOG 



XGTLN: 



TSTB 
BEQ 



EMTBLK 
1* 



; WANT CURRENT LINE OR RELATIVE 
; BR IF CURRENT 



THIS IS A REQUEST TO RETURN THE REAL LINE NUMBER OF A SUBPROCESS 



OOOOOOG 

OOOOOOG 

000002 

OOOOOOG 
000002G 

OOOOOOG 

000001 

OOOOOOG 

OOOOOOG 

OOOOOOG 



CMP R1,#LSTPL 

BLOS 4* 

CMP R1,#LSTDL 

BHI 4* 

MOV #2, RO 

BR 6* 

4*: MOV LNPRIM<R1),R1 

MOV EMTBLK+2, R5 

BNE 2* 

MOV R1,R5 

BR 3* 

CMP R5, #MAXSEC 

BLOS 5* 

MOV #1,R0 

BR 6* 

ADD LSECPT(R1)>R5 

MOVE -(R5),R5 

ASR R5 

MOV R5, URO 

BNE XJNOP 

CLR RO 

JMP SETERR 



2*: 

5*: 
3$: 

6*: 

1*: 



PRIMARY LINE? 



VIRTUAL LINE? 



ARE WE A 

BR IF OK 

ARE WE A 

BR IF OK 

DETACHED JOB'S DON'T HAVE SUBPROCESSES 

GO COMPLAIN ABOUT IT 

GET OUR PARENT INDEX 

WANTS LINE NUMBER FOR THIS SUBPROCESS 

BR IF NOT ASKING FOR PARENT 

COPY PARENT'S PROCESS INDEX 

DON'T NEED SUBPROCESS MAPPING 

VALID SUBPROCESS NUMBER? 

BR IF OK 

SIGNAL INVALID SUBPROCESS # 

AND GO REPORT ERROR 

POINT TO PRIMARY LINE'S SUBPROCESS TABLE 

GET SPECIFIED LINE'S INDEX (-^l IS OFFSET O) 

CONVERT INDEX TO LINE # 

PASS TO USER 

IF IN USE, RETURN LINE # TO USER 

ELSE REPORT LINE NOT ACTIVE 

RETURN WITH ERROR 



THIS IS A REQUEST TO GET OUR CURRENT LINE NUMBER 



OOOOOOG 



ASR 
MOV 
BR 



Rl 

R1,UR0 

XJNOP 



J CONVERT TO LINE # 

; RETURN TO USER IN RO 



THE . SPLSP EMT RETURNS IN RO THE NUMBER OF FREE BLOCKS 
IN THE SPOOL FILE. 



OOOOOOG OOOOOOG XSPLSP: MOV 
OOOOOOG XJNOP: JMP 



NFRESB, URO 
EMTXIT 



; RETURN # OF BLOCKS TO USER IN RO 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 1$: 



SET/RESET ODT CHARACTER ACTIVATION MODE 



EMTBLK ; SET OR RESET MODE? 

1* i BR IF RESET 

#«ODTMD, LSW4<Rl>iTURN ON ODT MODE 

#*DBGMD, LSW6<R1>;SAY WE ARE IN DEBUGGER TERMINAL CONTROL MODE 

XJNOP 

#*ODTMD, LSW4<R1); TURN OFF ODT MODE 



XODTMD: 


TSTB 




BEQ 




BIS 




BIS 




BR 


1$: 


BIC 



TSEM2 TSX-Pius EMF Overlay 
MISC. TSX EMT'S 



59 010214 042761 

59 010222 000755 

60 

61 

62 

63 

64 

65 010224 005761 

66 010230 001002 

67 010232 000137 

68 010236 000137 
69 

70 
71 
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OOOOOOG OOOOOOG 



ooooooe 

OOOOOOG 
OOOOOOG 



BIC 
BR 



#*DBGMD, LSW6(Rl)i RESET DEBUGGER TERMINAL MODE 
XJINJOP 



Check to see if any input activation characters are pending. 
Return with c-flag set if not. 



CKINAC: TST 
BNE 
JMP 

1$: JMP 



LACTIV(Rl) 

1* 

SETC 

EMTXIT 



ANY PENDING ACTIVATION CHARS? 
BR IF YES 

RETURN WITH C-FLAG SET 
RETURN WITH C-FLAG CLEAR 



Return in RO the TSX license number of this site. 



73 010242 013737 OOOOOOG OOOOOOG GTLICN: MOV 

74 010250 000742 BR 



TSXSIT, URO 
XJNOP 



;PUT LICENSE # IN USER'S RO 
} RETURN 



"i-xr— «.J#> 



m*r-.r-wf-v i»r\.»— 
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MISC. TSX EMT'S 



1 
o 



Set interactive or non-interactive mode for current program. 



4 oioiJtJii; uos/j/ uoouui:.'« 

5 010256 001404 
6 
7 
8 
9 010260 042761 OOOOOOG OOOOOOG 

10 010266 000405 

11 

12 

13 

14 010270 052761 OOOOOOG OOOOOOG 1*: 

15 010276 005061 OOOOOOG 
16 
17 
18 
19 010302 000137 OOOOOOG 



INTEMT: TST 
BEQ 



EMTBLK+2 
1« 



; Set or reset interactive mode? 
; Reset interactive move 



Set interactive mode 



BIC #*NOINT, LSW7<Rl)i Clear non-interactive mode flag 
BR 9* 

Reset interactive ntodp 



BIS 

CLR 



#*NOINT, L.SW7(Rl)i Run job non-interactively 
LITIME<R1) ; Clear interactive timer 



h i n i B h e d 
9*: JMP 



EMTXIT 



; Finished 



113705 OOOOOOG 
020527 000004 
101403 



OOOOOOG 



I onric: laA— nut? am uvtriiciy 

Return system (swap) file specification 

1 
2 
3 
4 
5 
6 
7 
8 
9 010306 

10 010312 

11 010316 

12 010320 005000 

13 010322 000137 
14 
15 
16 

17 010326 006305 

18 010330 016504 010364' 
19 
20 
21 

22 010334 013705 000002G 

23 010340 010500 

24 010342 004737 OOOOOOG 
25 
26 
27 

28 010346 012700 000004 

29 010352 012446 

30 010354 106625 

31 010356 077003 

32 010360 000137 OOOOOOG 
33 
34 
35 

36 010364 OOOOOOG 

37 010366 OOOOOOG 

38 010370 OOOOOOG 

39 010372 OOOOOOG 

40 010374 OOOOOOG 

41 000004 
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. SBTTL Return system (swap) file specification 

Return dev: f i 1 spc. ex t for system swap files 

The form of the EMT argument block is: 
.BYTE file_inclex, 164 
. WORD buffer address 



SYFEHT: MOVE 
CMP 
BLDS 
CLR 
JMP 



EMTBLK, R5 

R5, #MXSYFN 

1* 

RO 

SETERR 



GET SYSTEM FILE INDEX 
VALID FILE INDEX NUMBER? 
BRANCH IF OK 
ERROR CODE IF BAD INDEX 



Convert system file index number to table offset 



1$: 



ASL R5 

MOV SYFTBL(R5)>R4 



> CONVERT INDEX TO TABLE OFFSET 
i GET POINTER TO FILE NAME 



MOV 
MOV 
CALL 



EMTBLK+2, R5 
R5, RO 
VALADW 



2$: 



Get and validate user's return buffer 

i GET USER'S VIRTUAL ADDRESS 
; MAKE SURE ADDRESS IS OK 

Now return 4 RAD50 words of dev: f i Ispc. ex t to user buffer 

MOVE 4 WORDS 

GET NEXT RAD50 WORD 

MOVE TO USER BUFFER 

i FINISHED 

System file specification pointers 



MOV 


#4, RO 




MOV 


(R4)+,~ 


-(SP) 


MTPD 


(R5) + 




SOB 


RO, 2* 




JMP 


EMTXIT 





SYFTBL: . WORD SWDBLK 

. WORD SPLBLK 

. WORD RSFBLK 

. WORD UCLDAT 

. WORD INDFIL 



SWAP FILE 

1 SPOOL FILE 

2 PLAS REGION SWAP FILE 

3 USER DEFINED COMMAND (UCL) FILE 

4 IND TEMP FILE 



MXSYFN 



:<. -SYFTBL>/2.>-l 



I btric' i&A-rius trif uveriay rirtuKu wo. u^^ 

Set transmit/receive speed for a line 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 



010376 



13 
14 

15 

16 

17 

18 

19 

20 

21 

22 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 

34 O 

35 O 

36 

37 

38 

39 

40 
41 
42 
43 

44 O 

45 

46 

47 
48 
49 
50 



10376 
10402 
10404 
10406 
10410 
10414 
10416 
10422 
10426 
10430 
10436 
10440 
10446 
10450 
10454 



10460 
10466 
10470 
10474 
10476 
10500 
10502 
10506 



10512 
10514 
10522 
10524 



51 

52 

53 

54 

55 

56 

57 



10526 
10532 
10536 
10544 
10546 
10552 
10556 



013702 
006302 
001001 
010102 
020227 
lOlOOL' 
016202 
020227 
101010 
032762 
00 1 404 
032762 
001404 
012700 
000137 



032737 
001011 
105737 
00 1 402 
020201 
001404 
012700 
000137 



010201 
123727 
002416 
001422 



004737 
042700 
123727 
001002 
052700 
004737 
000413 



. SBTTL Set transmit/receive speed for a line 
Set transmit/receive speed for a line. 

The form of the EMT argument block is: 

. BYTE n, 154 

.WORD line_number 

. WORD speed„cod£? 
where n==0 is set speed.. n=l is reset xoff. n=2 is set dtr*n=3 is clear dtr 

EMTSPD: 

Qet line number and see if it is valid 



0000020 

0000000 

OOOOOOG 
0000000 

0000000 OOOOOOG 

OOOOOOG OOOOOOG 

000002 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



000001 
OOOOOOG 



MOV EMTBLK+2, R2 

ASL R2 

BNE 1* 

MOV R1,R2 

1*: CMP R2, #LSTSL 

BHI 10* 

MOV LNPRIM<R2), R2 

10*: CMP R2, #LSTHL 

BHI 5* 

B I T #*HARD, LSW3 < R2 ) 

BEQ 5* 

BIT #*DEAD, LSW3<R2) 

BEQ 4* 

MOV #2, RO 

JMP SETERR 



5*: 



Get line number 

Convert to line index number 

Br if line number specified 

Use current line 

Primary or virtual line? 

Br if not 

Map virtual line # to real line # 

Is this a valid line number? 

Br if not 

Line connected to hardware? 

Br if not 

Is line installed? 

Br if yes 

Return error code 2 for invalid line # 



See if we are privileged to perform this operation 



4$: 



12*: 



BIT 


#P2*TRM, PRIVC2 


BNE 


11* 


TSTB 


EMTBLK 


BEQ 


12* 


CMP 


R2, Rl 


BEQ 


11* 


MOV 


#1,R0 


JMP 


SETERR 



Do we have privilege to change speed? 

Br if yes 

EMT to reset XOFF status or line speed EMT? 

Br if changing line speed 

Resetting XOFF for our own line? 

Br if yes 

Return error code 1 



OOOOOOG 000001 



MOV 


R2, Rl 


CMPB 


EMTBLK, #1 


BLT 


2* 


BEQ 


20* 



OOOOOOG 
OOOOOOG 
OOOOOOG 000002 

OOOOOOG 
OOOOOOG 



See if this is actually the EMT to reset terminal XOFF status 

11*: MOV R2, Rl j Get line index number to Rl 

i Set line speed, reset XOFF or DTR? 
i Br if want to set speed 
i Br if want to reset XOFF 

Want to raise or lower DTR.- get current data set status 

Get data set status into RO 
Assume we want to lower DTR 
Should we raise DTR? 
Br if not 
Set DTR up bit 
13*: CALL SETDSS ; Reset data set status 

And exit 



CALL 


GETDSS 


BIC 


#MS*DTR, RO 


CMPB 


EMTBLK, #2 


BNE 


13* 


BIS 


#MS*DTR, RO 


CALL 


SETDSS 


BR 


30* 



TSEM3 TSX-Plus £Ml Uveriay HACku vOt). u4 Friday lS-Dec-S7 14; 0^.* Page 4y-i 
Set transmit/receive spewed for a line 



58 
59 
60 

61 010560 013700 000004G 

62 010564 004737 OOOOOOG 

63 010570 000406 
64 

65 
66 

67 010572 042761 

68 010600 004777 

69 010604 000400 
70 

71 
72 
73 010606 000137 OOOOOOG 



Call harduiare-dependent routine to set the line speed 



2*: 



MOV EMTBLK+4, RO 
CALL SETSPD 
BR 30* 



> Get speed code 

; Set the line speed 

; An d exit 



Reset XOFF status and stsrt transmitter 



OOOOOOG OOOOOOG 20*: 
OOOOOOG 



BIC 

CALL 

RR 



#«CTRLS, LSW3(Rl)i Reset XOFF flag for line 
STRNSTR ; Try to start output to the line 

30* .: Finished 



Fini shed 
30*: JMP 



EMTXIT 



.: Finished 



TSEM2 TSX-Plus hM I Overlay MAUKU 
Set transmit/receive speed for a line 
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1 

2 










The 


GTTAB emt is an obs 


3 










the 


address of a vector 


4 










This 


emt is simulated he 


5 










region of 


the job <372+) 


6 
7 
8 










poin 


ter vector. 


010612 


012702 


000400 


KGTTAB: 


MOV 


#400, R2 


9 


010616 


012703 


000372 






MOV 


#372, R3 


10 










TSLICH — 


TSX command le 


11 


010622 


113746 


ooooooe 






MOVB 


VTSLCH, -<SP 


12 


010626 


106623 








MTPD 


(R3) + 


13 










Name 


of running program. 


14 


010630 


010246 








MOV 


R2, -(SP) 


15 


010632 


106623 








MTPD 


(R3) + 


16 


010634 


012700 


000004 






MOV 


#4, RO 


17 


010640 


012704 


0000000 






MOV 


#RUNDEV, R4 


18 


010644 


012446 




1* 




MOV 


<R4)+,-<SP> 


19 


010646 


106622 








MTPD 


<R2) + 


20 
21 
22 
23 
24 


010650 


077003 








SOB 


RO, 1* 










Tell 


user 


that vector is 


010652 


012737 


000350 OOOOOOG 






MOV 


#350, URO 


25 


010660 


000137 


OOOOOOG 






JMP 


EMTXIT 



olete TSX emt that is supposed to return in RO 
of pointers to tables within TSX. 
re by moving some info into the low memory 
and returning that as the base of the 



; STORE VALUES HERE 
} STORE VECTOR HERE 

ad-in character. 

) i GET LEAD-IN CHARACTER 
! MOVE TO JOB SPACE 



SET POINTER TO PROGRAM NAME 

IN VECTOR 

GET # WORDS TO MOVE 

POINT TO NAME OF RUNNING PROGRAM 

MOVE NAME TO JOB SPACE 



located at 350. 

i RETURN VECTOR ADDRESS IN USER'S RO 
; FINISHED 



J~l- t*^ 



Access TSX system tables 



^4 «. r'. *n /-\ 
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SBTTL Access TSX bustem tables 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 01 

15 01 
16 

17 
18 

19 01 

20 01 

21 01 

22 01 

23 01 

24 01 

26 
27 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 
34 

35 
36 

37 01 

38 01 
39 

40 
41 

42 01 

43 01 

44 01 

45 01 

46 01 
47 
48 

49 

50 01 

51 01 

52 01 

53 01 
54 

55 
56 
57 01 



EMT's to get a table value.- store a table value., set bits and clear bits. 
Operator privilege is required to modify a table. 

EMT channel byte (byte in arg block) indicates function desired... 

~~> Get value from table. 

1 -~> Store value into table. 

2 -=> Set bits in tab If?. 

3 =!;.> Clear bits in table. 

4 ===> Special table operation. 



0664 
0670 



0672 
0700 
0702 
0706 
0712 
0716 



\J/ bLgL 

0726 
0730 
0732 
0736 
0740 



0744 
0746 



0750 
0752 
0756 
0760 
0764 



0766 
0772 
0774 
1000 



100c 



113705 
00 14 IS 



032737 
OOlOO'l 
012700 
000137 
013703 
013702 



020527 
001006 
006302 
020227 
101043 
000172 



006302 
002007 



005402 
020227 

103033 
016204 
000406 



020227 
10302?) 
016204 
060104 



OOOOOOG 



TBLEMT: MOVB 
BEO 



EMTBLK, R5 
1* 



; GET SUB-FUNCTION CODE 
;BR IF IT IS GET-VALUE 



Operator privilege is required to modify a table. 



OOOOOOG OOOOOOG 

000001 
OOOOOOG 
000004G 
000002G 



000004 



000000 
011136' 



000006 
011164' 



000024 
011140' 



2.%: 
1$: 



BIT #PO*SYS, PRIVCO 

BNE 2* 

MOV #1,R0 

JMP SETERR 

MOV EMTBLK+4, R3 

MOV EMTBLK+2, R2 



; IS THIS USER PRIVILEGED? 

; BR IF YES 

; RETURN ERROR CODE OF 1 IF NOT 

i GET VALUE FOR STORE 
i GET TABLE INDEX 



If subfunction code = 4 then branch off to special processing routine 



CMP R5, #4 

BNE 11* 

ASL R2 

CMP R2, #MXSPTF 

BHI 9* 

JMP eSPLTF<R2) 



; IS THIS A SPECIAL TABLE OPERATION? 

J BR IF NOT 

;GET WORD TABLE INDEX FDR OPERATION 

i MAKE SURE RANGE IS OK 

i BR IF INVALID 

i ENTER PROCESSING ROUTINE 



This is not a special table function 



11*: 



ASL 
BGE 



4* 



Negative table index 



NEG 


R2 


CMP 


R2, #MXNGTX 


BHIS 


9* 


MOV 


NEGTAB<R2),R4 


BR 


3* 



i CONVERT TO WORD TABLE VALUE 
; BR IF POS TABLE 



;MAKE TABLE INDEX POSITIVE 

; IS VALUE TOO BIG? 

J BR IF TOO BIG 

i GET TABLE ADDRESS 



PoBitive table index 



4*: 



CMP 


R2, #MXPSTX 


BHIS 


9* 


MOV 


P0STAB(R2),R4 


ADD 


R1,R4 



120527 000001 



IS TABLE INDEX TOO BIG? 
BR IF TOO BIG 
GET TABLE ADDRESS 
INDEX BY LINE NUMBER 



Perform requested operation on table 
3*: CMPB R5, #1 ; CHECK SUB-FUNCTION CODE 



1 acrici ISA— rius cri i uveriay 
Access TSX system tables 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



011006 
011010 



u 1 1 u 1 i=i 
011016 

011020 
011022 
011024 
011030 

011032 
011034 

011036 
011040 



003006 

00 1 403 

VI l437 
000411 

010314 
000407 
020527 
001002 

050314 
000402 

040314 
000400 



uuuuuu« 



000002 



011042 000137 ooooooe 



011046 
011050 



005000 
000137 



0000000 



011054 
011056 
011060 
011064 
011066 
011072 
011076 
011102 
011104 
011110 
011114 
011122 
011124 
011132 



011136 



005703 
003403 
020327 
101402 
113703 
110337 
120361 
103013 
110361 
110361 
032761 
00 1 403 



011140 
011142 
011144 
011146 
011150 



000137 OOOOOOG 



011054' 
000000 



OOOOOOG 

ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 



BGT 5* 

BEQ 6* 

; Fetch table value 

MOV @R4, URO 

BR 10* 

; Store value into table. 
6$: MOV R3, @R4 

BR 10* 
5*: CMP R5, #2 

BNE 7* 

> Set bits in table 

BIS R3. @R4 

BR 10* 
i Clear bits in table 

7*: BIC R3, @R4 

BR 10* 

; Finished 

10*: JMP EMTXIT 

i Invalid table index 



iBR IF BIT SET OR RESET 
i BR IF STORE VALUE 

i RETURN TABLE VALUE IN USER'S RO 

; STORE INTO TABLE 

;BIT SET OR RESET? 
iBR IF BIT CLEAR 

iSET BITS 

; CLEAR BITS IN TABLE 



I 



9*: 



CLR 
JMP 



RO 
SETERR 



i RETURN ERROR CODE O 



Special table function routines 

1 — Set maximum execution priority for job 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



1*: 
2*: 



SETMXP: TST 
BLE 
CMP 
BLDS 
MOVE 
MOVE 
CMPB 
BHIS 
MOVE 
MOVB 
BIT 
BEQ 
OCALL 
JMP 



3*: 



R3 

1* 

R3, #MAXPRI 

2* 

VPRIDF, R3 

R3, MXJPRI 

R3, LBSPRKRl) 

3* 

R3, LBSPRKRl) 

R3, LPRKRl) 

#*VNOTT, LSW<R1) 

3* 

SPPRED 

EMTXIT 



PRIORITY MUST BE > 

BR IF INVALID 

MAY NOT EXCEED THIS 

BR IF OK 

IF BAD, SET TO NORMAL PRIORITY 

SET MAX PRIORITY FOR JOB 

COMPARE WITH CURRENT JOB PRIORITY 

BR IF CURRENT PRIORITY IS OK 

SET BASE PRIORITY FOR JOB 

SET CURRENT PRIORITY FOR JOB 

Is this a subprocess disconnected from term? 

Br if not 

Reduce prio of disconnected subprocess 

FINISHED 



Jump table for special table functions (subfunction code = 4) 

■ Q — Qg^i; maximum job priority 



SPLTF: . WORD 
MXSPTF ^ 



SETMXP 

<:. -SPLTF>-P 



Table of table addresses for positive offsets. 



+00 — CONNECT TIME 
+01 — LSW 
+02 — LSW2 
+03 — LSW3 
+04 — LSW4 



POSTAB: 


. WORD 


LCONTM 




. WORD 


LSW 




. WORD 


LSW2 




, WORD 


LSW3 




. WORD 


LSW4 



i 
c 
c 
< 

( 
( 
< 

i 
i 

€ 

4 

i 
i 
i 
i 
i 
i 
i 
i 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 



011152 
011154 
011156 
011160 
011162 



011164 
011166 
n 1 1 1 7n 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000024 



000000 
OOOOOOG 
000003G 
000006 



. WORD LSW5 

. WORD LSW9 

. WORD LPRQJ 

. WORD LPROG 

. WORD LSW2S 

HXPSTX r^ . -POSTAB 



+05 — LSW5 
+06 — LSW9 
+07 — LPROJ 
+10 — LPROG 
+11 — LSW2S 



Table of addresses for neaative offsets. 



NEGTAB: . WORD 

. WORD UPPN 

. WORD UPPN+2 

MXNGTX r.- . -NEGTAB 



; -00 

5 _Q1 — PROJECT # 

J -02 — PROGRAMMER NUMBER 



i 

i 
I 
< 
I 
I 
I 
I 
€ 
I 
i 
i 

i 
< 

i 
i 
i 
i 
i 
i 
i 
i 



Get or set user name 






I 



rriaay io-jjec-w/ i^t; Ui^/ r^age *f& 



1 
2 
3 
4 
5 
6 
7 

a 01 

9 01 

10 01 

11 01 

12 01 

13 01 

14 01 

15 01 

16 01 

17 01 
18 

19 
20 
21 

22 01 

23 01 

24 01 

25 01 

26 01 

27 01 

28 01 

29 01 
30 

31 
32 

33 01 

34 01 

35 01 

36 01 
37 
38 
39 

40 01 

41 01 

42 01 

43 01 

44 01 

45 01, 
46 

47 
48 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 

55 01 

56 01 

57 01 



SBTTL Get or set ubbt name 



1172 

1174 

1200 

1204 

1212 

1214 

1220 
1 it;? 

1226 
1232 



1234 
1242 
1244 
1250 
1254 
1256 
1260 
1262 



1264 
1266 
1270 
1272 



1274 
1276 
1302 
1304 
1310 



1314 
1316 
1320 
1324 
1326 
1332 
1334 
1336 



010105 
013700 
004737 
123727 
002030 
012702 
070502 
062705 
105737 
001414 



032737 
00 1 004 
012700 
000137 
106520 
012625 
077203 
000432 



012546 
106620 
077203 
000426 



003007 
016146 
106620 
016146 
106620 
000416 



106520 
012605 
020527 
103013 
010561 
106520 
012605 
020527 
103004 



Qet or set u 
Byte O indie 
user name (1 
name (3). 



ser name for this job., or get or set the progam name. 

ates whether we are getting the user name iO). setting the 

). getting the program name <2)» setting the program 



EMUNAM: 



000002G 
OOOOOOG 
OOOOOOG 000002 

000006 

OOOOOOG 
OOOOOOG 



MOV 

MOV 

CALL 

CMPB 

13GE 

MOV 

MUL 

ADD 

TSTB 

BEQ 



Rl, R5 

EMTBLK+2> RO 

VALADW 

EMTBLK, #2 

3S 

#6, R2 

R2, R5 

#LUNAME, R5 

EMTBLK 

1* 



GET JOB INDEX NUMBER 

GET ADDRESS OF USER'S BUFFER 

VALIDATE THE ADDRESS 

GET OR SET PROGRAM NAME? 

BR IF GET/SET PROGRAM NAME 

6 WORDS PER USER NAME 

#12 BYTES PER USER NAME 

POINT TO USER NAME TABLE ENTRY 

IS THIS A REQUEST TO GET OR SET USER NAME 

BR IF GETTING THE NAME 



Th is is 
SETNAME 



a re 
pri V 



quest to set the ubbt name, 
ilege is required to do this. 



OOOOOOG OOOOOOG 

000001 
OOOOOOG 



2*: 



BIT 

BNE 

MOV 

JMP 

MFPD 

MOV 

SOB 

BR 



#PO*NAM, PRIVCO 

2* 

#1, RO 

SETERR 

<R0> + 

<SP)+. (R5) + 

R2, 

9* 



IS THIS JOB PRIVILEGED? 

BR IF YES 

RETURN ERROR IF NOT 

GET NEXT WORD OF USER NAME 
MOVE TO SYSTEM TABLE 
LOOP TO MOVE ALL OF NAME 



This is a request to get the user name. 



1$: 



MOV (R5)+, -(SP) 

MTPD (R0)+ 

SOB R2. 1* 

BR 9* 



i STACK A WORD OF THE USER NAME 
;MOVE TO USER'S BUFFER 



This is a request to get or set the program name 



3*: 



OOOOOOG 
OOOOOOG 



BGT 4* 

MOV LPRGKRl), -<SP) 

MTPD <R0)+ 

MOV LPRG2(R1), -<SP) 

MTPD <R0)+ 

BR 9* 



BR IF SETTING 

GET FIRST 3 CHARS OF PROG NAME 

MOVE TO USER'S BUFFER 

GET SECOND 3 CHARS OF PROG NAME 

MOVE TO USER'S BUFFER 



This is a request to set the program name 



4*: 



175000 
OOOOOOG 

175000 



MFPD 


<R0) + 


MOV 


<SP)-+-,R5 


CMP 


R5, #175000 


BHIS 


5* 


MOV 


R5, LPRGl (Rl) 


MFPD 


(R0) + 


MOV 


<SP)+, R5 


cnp 


R5, #175000 


BHIS 


5* 



GET FIRST 3 CHARS 

OF NEW PGM NAME 

IS THIS A VALID RAD50 VALUE 

BR IF NOT 

SET FIRST 3 CHARS OF PROG NAME 

GET SECOND 3 CHARS 

OF NEW PGM NAME 

IS THIS A VALID RAD50 VALUE 

BR IF YES 



I stric: i&A-fius tn I uveria\i i-ihuku vud. u•t^ hriday 18-Dec-87 14:02 Hage 46-1 

Get or set user name 

58 011344 010561 0000000 MOV R5, LPRG2<R1) ; SET SECOND 3 CHARS OF PROG NAME 

59 011350 000137 OOOOOOG 9*: JMP EMTXIT ; FINISHED 
60 

61 011354 Ulk'/UU UUUOUk' 'j«: MOV #2, RO ; SIGNAL ERROR CODE 

62 011360 000137 OOOOOOG JMP SETERR 



-fr^\/ f-i 1 . r- i.j4 T" r^ .. i ,- .. 

laA— rius tin ( uvt'i-jnay 



»»-■* A /% »-* r 



011364 123727 OOOOOOG 000001 REQPRV: CMPB 



Request operator privilege 



3 

^ 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 



nrtuixu VU3. u'+ t-naaii ib-Dec-a/ I4; Uc/ h-age -4/ 



. SBTTL Request operator privilege 



Request operator privilege. 

ihiB is only legal if user has SYSPRV privilege. 



011372 001417 

011374 032737 OOOOOOG OOOOOOG 

011402 001410 

011404 052737 OOOOOOC OOOOOOG 

011412 052761 OOOOOOG OOOOOOG 

011420 000137 OOOOOOG 

011424 005000 1$: 

011426 000137 OOOOOOG 



011432 042761 OOOOOOG OOOOOOG 2$: 
011440 000137 OOOOOOG 



BEQ 
BIT 
BEQ 
BIS 
BIS 
JMP 
CLR 
JMP 



EMTBLK, #1 ; Request to release locked program? 

2* ; Br if yes 

#PO$SPV> PRIVCO ; Does job have SETPRV privilege? 

1* ; Br if not 

#<PO*SPV!PO*SYS!PO*NAM!PO*BYP>, PRIVCO j ENABLE PRIVILEGES 

#«PRGLK,LSW5<R1); Lock program to line 

EMTXIT 

RO i RETURN ERROR CODE OF 

SETERR 



Release program lock 

BIG #*PRGLK, LSW5<R1); Program no longer locked to line 
JliP EMTXIT 



Establish Break key st^ntinal control 



ut r-rioay iti-uec-a/ l4: Ot' f-'a.ge ta 



1 
2 
3 

S 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



011444 



01 
01 
01 



1444 
1450 
1452 



01 
01 
01 
01 
01 
01 
01 
01 



1456 
1462 
1466 
1472 
1474 
1502 
1506 
1510 



011514 
011520 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 



1526 
1532 
1536 
1544 
1552 
1560 
1564 
1570 
1572 
1576 
1604 



1610 
1614 



105737 
001402 
000137 



005061 
005037 
016100 
001410 
016037 
005061 
010001 
004737 



005737 
00 1 437 



004737 
1 1 3702 
110261 
112761 
116261 
112761 
013700 
004737 
10341'*; 
010061 
013761 
010162 



1 1 3700 
010062 



0000000 
OOOOOOQ 



. SBTTL Establish Brc?ak key sentinal control 

Set up control so that pressing the Break key will cause an 
asynchronous completion routine to be entered. 

GETBRK: 

See if Mie are connecting a completion routine to a break character 
or to any input activation condition. 

j Connecting to break character? 

; Br if yes 

; Go connect compl to activation condition 

Set completion routine for break character. 

Cancel any existing break control. 

Return address of existing breakpoint routine to user in RO. 



TSTB 


EMTBLK 


BEQ 


3* 


JMP 


STTCPL 



OOOOOOG 
0000000 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



000004G 



3$: 



CLR 


LBRKCH(Rl) 




CLR 


URO 




MOV 


LBRKCQ(Rl), 


RO 


BEQ 


1* 




MOV 


CQ*RTN<RO). 


URO 


CLR 


LBRKCQ(Rl) 




MOV 


RO, Rl 




CALL 


QFREE 





NO BREAK CHARACTER 

ASSUME NO BREAK ROUTINE NOW 

GET ADDRESS OF BREAK COMPLETION QUEUE ENTRY 

BR IF NONE 

RETURN ADDRESS OF CURRENT BREAKPOINT ROUTINE 

SAY NO COMPLETION ENTRY 

GET ADDRESS OF QUEUE ELEMENT TO Rl FOR QFREE 

RELEASE THE QUEUE ELEMENT 



See if me need to establish a completion routine. 



1*: 



TST 
BEQ 



EMTBLK+4 
2* 



jDID HE SPECIFY THE ADDRESS OF A COMPL RTN? 
; BR IF NOT 



Get a queue element and set up as a completion queue element. 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
000004G 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



000002G 
OOOOOOG 



CALL 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 



GETQ 

CORUSR, R2 
R2/ CQ*J0B<R1) 



i GET A QUEUE ELEMENT 
iGET USER INDEX NUMBER 
i SET JOB NUMBER IN QUEUE ELEMENT 
#S*TWFN, CQ*RNS<R1 ); SET EXECUTION STATE 
LPRI(R2),CQ*PRI<R1); SET EXECUTION PRIORITY 
#CP*STD, CQ*CP<R1); Set compl routine class priority 



GET ADDRESS OF COMPL ROUTINE 

MAKE SURE ADDRESS IS VALID 

BR IF INVALID 

SET COMPL ROUTINE ADDRESS IN QUEUE ELEMENT 
EMTMAP,CQ*PA5(R1); SET EMT ENTRY MAPPING FOR PAR 5 
R1,LBRKCQ<R2) i SET ADDRESS OF BREAK QUEUE ELEMENT 



EMTBLK+4, RO 

UACHKW 

9* 

RO, CQ*RTN<R1 ) 



Remember special user-defined break character. 



MOVE 
MOV 

Finished 



EMTELK+2, RO 
RO, LBRKCH(R2) 



;GET USER-DEFINED BREAK CHARACTER 
J SAVE FOR TT INTERRUPT PROCESSING 



011620 000137 OOOOOOG 



2*: JMP EMTXIT 

i Error — Invalid arqument address. 



latncT tiDA-rius cm uveriay hmv-ku vkjv. vh 

Establish Break key seritinal control 



^raday ib~Dec-a/ 14: Uk' l-age 4a-l 



58 

59 011624 

60 011630 

61 011634 



004737 
012700 
00013/ 



OOOOOOG 
177766 

oooooo« 



9*: 



CALL 


QFREE 


MOV 


#-12> RO 


JMP 


SETERR 



i FREE THE QUEUE ELEMENT 
; SET ERROR CODE 
i ABORT THE EMT 



I aci'ici ISA— riuij d! r I uveridy 

CHKTT — CHECK I/O TO TT DEVICE 



h.4 A r" ri r^ 



rrH\.,«u v\jD. UH t-riaayi la-juec-b/ 14: Uc' Page 4V 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



SBTTL CHKTT 



CHECK I/O TO TT DEVICE 



CHKTT is called to see if the current I/O operation is being directed 
to device TT or some other device. 



Inputs: 
CHNADR = Address of current channel block 

Outputs: 
C--flag cleared if I/O is directed to TT 
C-flag set if I/O not directed to TT 



011640 
011644 
011646 
011652 
011654 
011656 
011660 



017700 
002005 
032700 
001002 
000241 
000207 
000261 



OOOOOOG 



000076 



CHKTT: 



1*: 



011662 000207 



MOV 


eCHNADR, RO 


BGE 


1* 


BIT 


#76, RO 


BNE 


1$ 


CLC 




RETURN 




SEC 




RETURN 





GET DEV TABLE INDEX 

BRANCH IF NOT OPEN 

IS THIS TT DEVICE (INDEX # 

BR IF NOT TT 

SAY THIS IS TT 



O)? 



€ 
€ 

4 

( 
f 



CKIOST — See if scheduler wants to stop 1/0 



i-riaay iB-Dec-b/ l4; u2 f^age du 



1 

2 








3 








4 








5 








6 








7 








8 


011664 


010146 




9 


011666 


032737 


OOOOOOG 


10 


011674 


001434 




11 


011676 


105737 


OOOOOOG 


12 


011702 


001031 




13 


011704 


113701 


ooooooe 


14 


011710 


005761 


0000000 


15 


011714 


001424 




16 


011716 






17 


011724 


105761 


OOOOOOG 


IS 


011730 


001407 




19 


011732 


012700 


OOOOOOQ 


20 


011736 


004737 


OOOOOOG 


21 


011742 


004737 


OOOOOOG 


22 


011746 


000760 




23 


011750 


005061 


OOOOOOG 


24 


011754 






25 


011762 


004737 


OOOOOOG 


26 








27 








28 








29 


011766 


012601 




30 


011770 


000207 





. SBTTL CKIOST — See if scheduler wants to stop I/O 

If the job scheduler wants to stop all I/O for a job so that 
it can have a chance to swap the job, it sets the LIOHLD flag. 
The CKIOST routine checks to see if this flag is set 
and if so, suspends the job until all I/O is finished. 



CKIOST: MOV 


Rl, -<SP) 


BIT 


#UMODE, EMTPS 


BEQ 


2* 


TSTB 


CURCP 


BNE 


2* 


MOVE 


C0RUSR,R1 


1$: TST 


LI0HLD<R1> 


BEQ 


2* 


DISABL 




TSTB 


LIOCNT(Rl) 


BEQ 


3* 


MOV 


#S*IOWT, RO 


CALL 


QNSPND 


CALL 


CHKABT 


BR 


1* 


3*: CLR 


LI0HLD<R1> 


ENABL 




CALL 


SCHED 


; F i n i & h e d 




2*: MOV 


(SP)+, Rl 


RETURN 





Was this EMT exec 
Br if yes — Don' 
Was EMT executed 
Br if yes — I/O 
Get current job i 
Is I/O hold flag 
Br if not 
; ; *«■ Disable inte 
i i Is any I/O in p 
; i Br if not 
} } Get I/O wait st 
Enqueue in I/O wa 
See if we were ab 
See if we should 
i j Reset I/O hold 
** Enable interru 
Call scheduler to 



uted in kernel mode? 

t stop system EMT's 

by a completion routine? 

hold flag stops cpl rtns 

ndex # 

set for job? 

rrupts ** 
rogress now? 

ate code 

it state <enable ints) 
orted while asleep 
continue waiting 
flag 
pts ** 
probably swap job 



BETQ 



— Do setup of I/O queue element 



^■^lc(ay iB-uec-y/ 14: Ui' Hage 3i 



1 
P. 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



01 1 772 
011774 
011776 



012000 
1 2006 
012012 
012016 
012024 
012030 
012034 
012040 
012046 
012052 
012054 
012060 
012064 
1 2066 
012072 
012076 



012130 
012134 
012136 
012144 



010246 
010346 
010446 



013761 
013703 
010361 
013761 
016302 
042702 
110261 
116361 
113702 
006202 
110261 
020227 
101402 
012702 
072227 
150261 



010100 
062700 
010061 
010302 



012102 
012104 
012110 
012114 
012116 
012120 
012122 
012124 
012126 011210 



013702 
001004 

123727 
001104 



— Do setup of I/O queue element 
SETQ is called to set up parameters in an I/O queue element. 



Inputs: 

HI = Address of queue element 

EMIBLK = EMT arguments 

CHNNUM -■ User's channel number 

CHNADR = Address of CSW for channel 

Outputs: 

RO ~ Highest block number that will be accessed by I/O 

C-flag set if a fatal error is detected (Error code is returned 

URO = Number of words that will be transfered. 



in INTERR). 



SETQ: 



MOV 
NOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -(SP) 



0000000 OOOOOOG 

0000000 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

177701 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 
000037 

000037 
000003 
OOOOOOG 



Set up misc. parameters 

MOV CHNNUM, Q. CHAN(R 

MOV CHNADR, R3 

MOV R3, Q. UCSW<R1) 

MOV e#KPAR6, «. PA6<R 

MOV C. CSW<R3),R2 

BIC #--X76, R2 

MOVE R2, Q. DEVX(Rl) 

MOVE C. DEVQ<R3),Q. UN 

MOVE CORUSR, R2 

ASR R2 

MOVE R2>Q. J0B<R1) 

CMP R2, #31. 

BLOS 12* 

MOV #31., R2 

12*: ASH #3, R2 

BISB R2, Q. JNUM(Rl) 



DiSET USER'S CHANNEL # 

;GET ADDRESS OF CSW FOR CHANNEL 

; SET POINTER TO CSW 
l>;Save context b 1 k mapping to access channel 

; GET CHANNEL STATUS WORD 

; EXTRACT DEVICE INDEX NUMBER 

i SAVE IN QUEUE ELEMENT CELL 
lT(Rl)iSET UNIT NUMBER 

iGET USER INDEX # 

i Convert to job number 

; Store job # into queue element 

;Will number fit in old Q. JNUM field? 

j Br if yes 

i Signal that Q. JNUM field not valid 

; Position for O. JNUM field 

; STORE JOB # 



Copy original channel block into internal channel block that is 
part of I/O queue element. 



OOOOOOG 
OOOOOOG 



MOV R1,R0 

ADD #Q. ICSW, RO 

MOV RO, Q. CSW<R1) 

MOV R3, R2 

MOV (R2)+, <R0)+ 

MOV (R2)+, <R0)+ 

MOV <R2)+, <R0)+ 

MOV (R2)+, <R0)+ 

MOV (R2), (RO) 

Set up buffer address 



i Get address of I/O queue block 

i Get address of CSW within queue block 

i Set pointer to internal CSW 

; Get pointer to original channel block 

;Copy original channel block to internal one 



000006G 



00000 IG 00003i 



MOV 


EMTBLK+6, R2 


BNE 


5* 


CMPB 


EMTBLK+1,#32 


BNE 


1* 



i GET # WORDS TO BE TRANSFERED 

iBR IF WORD COUNT SPECIFIED 

; IS THIS A . SPFUN REQUEST? 

;BR IF NOT ~ THIS MUST BE A SEEK REQUEST 



T3EM2 


TSX-P1U5 EMT Overlay MACRO V 


SETQ 


— Do BG 


tup of 1/0 queue element 


58 


012146 


013700 


000004Q 


59 


012152 


032737 


0000000 0000000 


60 


012160 


001417 




ax 


012162 


004757 


OOOOOOQ 


62 


012166 


103523 




63 


012170 


123727 


00000 10 000032 


64 


012176 


001410 




65 


012200 


006302 




66 


012202 


005302 




67 


012204 


060200 




68 


012206 


004737 


OOOOOOG 


69 


012212 


103511 




70 


012214 


013700 


000004G 


71 


012220 


004737 


012524' 


72 


012224 


010061 


0000000 


73 


012230 


010261 


OOOOOOG 


74 








75 








76 








77 


012234 


005037 


OOOOOOG 


78 


012240 


013704 


000006G 


79 


012244 


062704 


000377 


SO 


012250 


105004 




81 


012252 


000304 




82 


012254 


013700 


000002G 


S3 


012260 


011302 




84 


012262 


042702 


177701 


85 


012266 


032762 


OOOOOOG OOOOOOG 


86 


012274 


001007 




87 


012276 


060400 




88 


012300 


032713 


OOOOOOG 


89 


012304 


001424 




90 


012306 


042713 


OOOOOOG 


91 


012312 


000455 




92 


012314 


042713 


OOOOOOG 


93 


012320 


005763 


OOOOOOG 


94 


012324 


001414 




95 


012326 


016302 


OOOOOOG 


96 


012332 


020002 




97 


012334 


103044 




98 


012336 


060400 




99 


012340 


020002 




100 


012342 


101405 




101 


012344 


010200 




102 


012346 


163702 


000002G 


103 


012352 


000302 




104 


012354 


000402 




105 


012356 


013702 


000006G 


106 


012362 


010237 


OOOOOOG 


107 


012366 


010261 


OOOOOOG 


108 


012372 


013702 


000002G 


109 


012376 


066302 


OOOOOOG 


110 


012402 


010261 


OOOOOOG 


111 








112 








113 








114 


012406 


126137 


OOOOOOG OOOOOOG 
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5*: 



2*; 



MOV EMTBLK+4, RO 

BIT #UMODE, EMTPS 

BEQ 2* 

CALL UACHKB 

BCS 9* 

CMPB EMTBLK+1,#32 

BEQ 2* 

ASL R2 

DEC R2 

ADD R2, RO 

CALL UACHKB 

BCS 9* 

MOV EMTBLK+4, RO 

CALL CVTUAD 

MOV RO, Q. BUFF(Rl) 

MOV R2, Q. PAR<R1) 



BASE ADDRESS OF BUFFER AREA 

WAS EMT DONE IN USER OR KERNEL MODE? 

BR IF IN KERNEL MODE (ASSUME ADDRESS IS OK) 

MAKE SURE IT IS LEGAL 

BR IF ILLEGAL 

IS THIS A . SPFUN OPERATION? 

BR IF YES — DON'T CHECK WDRDCOUNT VALUE 

CVT # WORDS TO « BYTES 

GET ADDRESS OF LAST BYTE TRANSFERED 

CHECK HIGH RANGE ADDRESS OF BUFFER 

BR IF ILLEGAL 

GET BACK BASE ADDRESS OF BUFFER 

CONVERT USER ADDRESS TO PHYSICAL ADDRESS 

BUFFER ADDRESS RELATIVE TO Q. PAR 

RELOCATION BASE ADDRESS 



Set up word count and block number for transfer. 



CLR 
MOV 
ADD 
CLRB 
SWAB 
MOV 
MOV 
BIC 
BIT 
BNE 
ADD 
BIT 
BEQ 
BIC 
BR 
10*: BIC 
TST 
BEQ 
MOV 
CMP 
BHIS 
ADD 
CMP 
BLOS 
MOV 
SUB 
SWAB 
BR 
1 * : MOV 
3f: MOV 
MOV 
MOV 
ADD 
MOV 

; See if this 

CMPB 



URO 

EMTBLK+6, R4 

#377, R4 

R4 

R4 

EMTBLK+2, RO 

<R3>,R2 

#-X76, R2 

#DS*DIR,DVSTAT 

10* 

R4, RO 

#CS*EOF, (R3) 

1* 

#CS*EOF, (R3) 

7* 

#CS*EOF, (R3) 

C. SBLK<R3) 

1* 

C. LENG(R3), R2 

RO, R2 

S« 

R4, RO 

RO, R2 

1* 

R2, RO 

EMTBLK+2, R2 

R2 

3* 

EMTBLK+6, R2 

R2, URO 

R2, Q. WCNT<R1) 

EMTBLK+2, R2 

C. SBLK(R3), R2 



SAY # WORDS TRANSFERED 
GET WORD COUNT 
CONVERT TO BLOCK COUNT 



(IN CASE OF ERROR) 



; GET BLOCK # FOR REQUEST 
; GET CSW 

i GET DEVICE INDEX 
<R2);IS THIS A FILE STRUCTURED DEVICE? 

BR IF YES 

COMPUTE HIGH BLOCK NUMBER FOR TRANSFER 

HAS END OF FILE BEEN HIT? 

BR IF NOT 

ACKNOWLEDGE EOF 

RETURN EOF STATUS CODE 

CLEAR END OF FILE FLAG 

STARTING BLOCK FOR FILE = O? 

DIR OP IF YES 

GET # BLOCKS ALLOCATED FOR FILE 

IS THIS A VALID STARTING BLOCK #? 

BR IF INVALID STARTING BLOCK # 

COMPUTE ENDING BLOCK NUMBER + 1 

WILL TRANSFER PASS END OF FILE? 

BR IF WITHIN FILE 

DON'T PASS END OF FILE 

CALCULATE # BLOCKS ACTUALLY TO BE TRANSFERRED 

GET ACTUAL WORD COUNT FOR TRANSFER 



GET REQUEST WORD COUNT 

RETURN ACTUAL WORD COUNT TO USER IN RO 

SET WORD COUNT IN Q ELEMENT 

GET REQUEST BLOCK # 

ADD BASE BLOCK # OF FILE 

SET PHYSICAL BLOCK # 



is an I/O operation to a logical disk 
Q. DEVX(Rl),LDDEVXi I/O TO LOGICAL DISK? 



1 iib.r\3 


TSX~riu 


5 hni Uveriay 


SETQ 


— Do se 


tup of .1 


/ queue 


115 


012414 


001006 




116 


012416 


010046 




117 


012420 






IIU 


01i:.'4=;6 


1 c'60U 




119 


012430 


103406 




120 


012432 


000241 




121 


012434 


000407 




122 








123 


012436 


1 1 2737 


177766 


124 


012444 


000402 




125 








126 


012446 






127 








128 


012446 


105037 


OOOOOOG 


129 


012452 


000261 




130 








131 








132 








133 








134 








135 


012454 


016361 


OOOOOOG 


136 








137 








138 








139 


012462 


012604 




140 


012464 


012603 




141 


012466 


012602 




142 


012470 


000207 





ei ement 



i-riaay 


18- 


-Dec-S7 1 


BNE 




11* 


MOV 




RO, -<SP) 


OCALL 




LDIO 


iiOV 




(SP)+, RO 


BCS 




8* 



Ol 



Pr3ge t>i-id 



11*: 



BR IF NOT 

SAVE HIGH BLOCK NUMBER 

ALTER QUEUE ELEMENT FOR LOGICAL DISK I/O 

RESTORE HIGH BLOCK NUMBER 

BR IF NOT VALID LOGICAL DISK 

SIGNAL SUCCESS ON RETURN 



i RETURN ERROR CODE 12 



CLC 

BR 4* 
> Invalid buffer addresB 
9$: MOVB #-12, INTERR 

BR 6* 
i Invalid block number (return EOF status) 
8*: 

i BIS #CS*EOF, <R3) ; SET END-OF-FILE FLAG IN CSW 

7*: CLRB INTERR ; RETURN ERROR CODE OF O 

6*: SEC ; SIGNAL ERROR ON RETURN 

Copy Channel Status Word from user's channel status block into 
internal CSW word in I/O queue element (Q. ICSW). 
<Note. Do not alter C~flag) 



MOV 
Finished 



C. CSW<R3), 0. ICSW(Rl);Copy CSW into Q element 



MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





TSEM2 TibX-Fius Efi I uveriay hacku vut>. U4 Friday iS-Dec-S7 14: U2 ir'age ^ri 
SETCR — Set completiDn routine address in queue element 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

IP 

13 

14 

15 

16 

17 

IS 

19 

20 



. SBTTL SETCR 



Set completion routine address in queue element 



SETCR is called to store a completion routine address into an 
1/0 queue element. 

Inputs: 
RO = Completion routine address 
Rl = Address of I/O queue element 

Outputs: 
c~flag set if a fatal error is detected. 



012472 020027 000001 

012476 101403 

012500 004737 0000000 

012504 103406 

012506 010061 OOOOOOG 

012512 013761 OOOOOOG OOOOOOG 

012520 000241 

012522 000207 



SETCR: 



2$: 



1*: 



CMP 


RO, #1 


BIOS 


2* 


CALL 


UACHKW 


BCS 


1* 


MOV 


RO,Q. C0MP<R1 ) 


MOV 


EMTMAP,Q. PA5<R1) 


CLC 




RETURN 





jCOMPL RTN ADDR of 1 ==> . READW/. WRITW 
BR IF YES 

VALIDATE ADDRESS OF COMPLETION ROUTINE 
BR IF ILLEGAL 

STORE ADDRESS INTO QUEUE ELEMENT 
SET EMT ENTRY PAR 5 MAPPING VALUE 
SIGNAL GOOD RETURN 



i 
i 
i 
i 
i 
i 

i 



A sy 



jv. u-t i-r laay 
CVrUAD -— Convert user address to physical address 



iH-uec-a/ l4: Ut' Page dj 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
'19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

32 012524 

33 012526 

34 012530 
35 

36 
37 

38 0] 

39 0] 
40 
41 
42 
43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



>12534 
J12542 



12544 
12552 
12554 
12560 
12562 
12566 
12570 
12572 
12576 
12600 
12604 
12606 
12612 



010146 
010346 
113701 



032737 
001443 



032761 
001405 
020027 
103037 
162700 
010003 

00500;? 

073227 
006302 
005762 
001405 
016202 
042700 
000402 



. SBTTL CVTUAD — Convert user address to physical address 

CVTUAD is called to convert a user specified virtual buffer address into 
the corresponding physiial address. 

The type of conversion done depends on whether the EMT was executed in 
user or kernel mode: 

Vser mode EMT: 
The address is assumed to be within the job's virtual address region. 

Kernel mode EMT: 

1. If the virtual address is greater than or equal to 140000 it is mapped 
into the job's context block. 

2. If the virtual address is greater than or equal to 120000 it is mapped 
into the system mapped region using the value of EMTMAP which contains 
the mapping value that kernel PAR 5 had when the EMT was executed. 

3. If the virtual address = it is mapped to the base of the program 
space. <Used for reading in SAV files). 

4. Otherwise the address is assumed to already be physical and is returned 
unchanged. 

If the address needs to be mapped; the virtual address returned will be 
in the range 140000-157777 so that it will map through page 6. 

Inputs: 
RO ~ Virtual address to be mapped. 

Outputs: 
HO ■■-• 16-bit offset within page. 
R2 = PAR page base. 



OOOOOOG 



0000000 OOOOOOG 



CVTUAD: MOV 
MOV 
MOVB 



R 1 > - < SP ) 
R3, -<SP) 
CORUSR^Rl 



i GET JOB INDEX NUMBER 
Determine if the EMT was done in user or kernel mode. 



BIT #UMODE, EMTPS 
BEQ 1* 



; WAS EMT DONE IN USER OR KERNEL MODE? 
i BR IF IN KERNEL MODE 



EMT was done in user mode. 

Map user virtual address to physical address. 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

000003 

OOOOOOG 

OOOOOOG 
160000 



8«: 



BIT 


#*INKMN, LSW4<R1) 


BEQ 


8* 


CMP 


RO, #CXTBAS 


BHIS 


5* 


SUB 


#KMNBAS, RO 


MOV 


RO, R3 


CLR 


R2 


ASHC 


#3, R2 


ASL 


R2 


TST 


RPDR<R2) 


BEO 


6* 


MOV 


RPAR<R2),R2 


BIC 


#160000, RO 


BR 


7* 



IS KMON RUNNING? 

BR IF NOT 

IS KMON DOING I/O TO JOB CONTEXT AREA? 

BR IF YES 

SUBTRACT KMON ADDRESS BIAS 

GET VIRTUAL ADDRESS 

CLEAR FOR SHIFT 

GET VIRTUAL PAR # FROM ADDRESS 

*2 TO GET WORD TABLE INDEX 

IS THIS PAGE SPECIALLY MAPPED? 

BR IF NOT 

GET BASE 64-BYTE BLOCK # FOR THIS PAGE 

CLEAR PAR # FROM VIRTUAL ADDRESS 



f^ -« 1 - .. 

u/ y K 1 J. ca y 
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CVTUAD — Convert user address to physical address 



Page s3-i 



58 
59 
60 
6i 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



012620 
012624 
012626 
012650 
012632 
012636 
012640 
012644 
012650 



016102 OOOOOOG 

010003 

00024.1 

006003 

072327 177773 

060302 

042700 

062700 

000440 



177700 
0000000 



012652 
012656 



012660 
012664 



020027 OOOOOOG 
103405 



016102 
072227 



OOOOOOG 
000003 



012670 000430 



012672 
012676 



020027 
103405 



OOOOOOG 



012700 
012704 
012710 



013702 OOOOOOG 
062700 020000 
000420 



012712 
012714 



012716 
012722 
012726 



012730 
012732 
012734 
012736 
012742 
012746 



005700 
001005 



016102 
062700 
000411 



010002 
000241 
006002 
072227 
042700 
062700 



OOOOOOG 
OOOOOOG 



177773 
177700 
OOOOOOG 



6$: MOV LPARBS<R1),R2 

7*: MOV RO, R3 
CLC 

ROR R3 

ASH #-5, R3 

ADD R3i R2 

BIG #--C77, RO 

ADD #VPAR6> RO 

BR 9* 



GET BASE 64-BYTE BLOCK # FDR JOB 

GET VIRTUAL ADDRESS 

SHIFT RIGHT 6-BITS WITHOUT SIGN EXTENSION 



GET 64-BYTE BLOCK # OF PHYSICAL ADDRESS 
GET BYTE-WI THIN-BLOCK FROM VIRTUAL ADDRESS 
MAP INTO PAR6 REGION 



EM7 was done in kernel mode. 
Determine ujhirh region to map to. 



1*: 



CMP 

BLO 



RO, #CXTBAS 
2* 



; IS ADDRESS IN JOB CONTEXT BLOCK? 
i BR IF NOT 



Map to Job context block. 



5$: 



MOV 
ASH 



LBASE<R1),R2 
#3, R2 



} GET BASE 256-WORD BLOCK # OF CONTEXT BLOCK 
i CONVERT TO 32-WORD BLOCK # 
Note: Virtual address in RO is already in PAR 6 range < 140000-157777) 
BR 9* 



See if accessing the system mapped region. 



?*: 



CMP 
BLO 



RO, #VPAR5 
12* 



; IS ADDRESS IN MAPPED SYSTEM REGION? 
iBR IF NOT 



Map to the buffer using the current contents of EMTMAP which indicates 
the mapped value for kernel PAR 5 when the EMT was done. 



MOV EMTMAP, R2 
ADD #20000, RO 
BR 9« 



; Get mapping value that PAR 5 had on entry 
i INCREASE VIRTUAL ADDRESS 



Not in job context area. 

See if accessing base of job region. 



12*: 



TST 
BNE 



RO 
3* 



Map to base of job space. 



MOV 

ADD 
BR 



LPARBS<R1),R2 
#VPAR6, RO 

9* 



i VIRTUAL ADDRESS = O? 
i BR IF NOT 



;GET PAR OF JOB BASE 

J PUT VIRTUAL ADDRESS IN PAGE 6 REGION 



Address is already physical. 



3*: 



MOV 
CLC 
ROR 
ASH 
BIC 
ADD 

F i n i 5 h e d 



RO, R2 

R2 

#-5, R2 
#•'^077, RO 
#VPAR6, RO 



iGET ACTUAL ADDRESS 
; CONVERT TO PAGE # 



i GET BYTE-IN-PAGE TO RO 
i MAP THROUGH PAR 6 



iscric: i&A~r.ius trj'ti uveriay i-ibi.ku vud. U'+ f-riday IS-Dec- 

CVTUAD — Convert user address to physical address 



•87 14: Oc.' Page i>3-iJ 



115 



012752 



lia Uli:L'7S6 



012603 
012601 
OOOk'U/ 



9*: 



MOV 


<SP)+, R3 


MOV 


<SP)+,R1 



LDIO 



J. dM 



— Process I/O to logical iliskF, 



rriosy la-uec-a/ i'^f; Ut.' Hage dh 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL LDIO 



ProresB I/O to logical dislsB 



012760 010446 



012762 
012766 
012772 
012774 
013000 
013002 
013006 
013014 
013016 



013026 
013030 
013034 
013040 
013042 



013046 
013050 
013054 
013056 
013062 
013064 
013070 
013074 



013076 
013102 
013106 
013110 
013112 
013116 
013122 



116104 
042704 
006304 
016400 
001456 
110061 
142761 
000300 
150061 



116100 
002023 
105061 
120027 
001006 
005737 



000240 
004737 
000426 
120027 
001023 
016446 
106677 
000416 



016100 
062700 
105000 
000300 
066100 
020064 
lOlOOD 



0000000 
1 77770 

ooooooe 

0000000 
000007 

0000000 



0000000 

0000000 
000372 

0000060 



013144' 

000373 

OOOOOOG 
0000040 



0000000 
000377 



OOOOOOG 
OOOOOOG 



LDIO is called from the SEIQ routine in TSEMT when it determines 
that the queue element being set up is for an I/O operation to 
a logical disk. 

This routine converts the logical device #* unit #, and block # 
into a physical device #> unit #* and block #. 



Inputs: 
Rl = Address of I/O qutfue element 
EMTBLK = Current EMT argument block 



LDIO: 



MOV 



R4, - < SP ) 



OOOOOOG 



Change logical device number and unit number into physical 
device number and unit number. 



GET LOGICAL DISK UNIT NUMBER 

GET UNIT # ONLY 

CONVERT TO WORD TABLE INDEX 

GET PHYSICAL UNIT # AND DEVICE # 

BR IF THIS LOGICAL UNIT NOT IN USE 

SET PHYSICAL DEVICE INDEX NUMBER 

CLEAR OLD UNIT # 

GET PHYSICAL UNIT # TO LOW BYTE 

SET PHYSICAL UNIT # 



See if this is a . SPFUN to get device size or LD unit tables 



MOVB 


Q. UNIT(R1),R4 


BIC 


#--C7, R4 


ASL 


R4 


MOV 


LDPDEV(R4),R0 


BEG 


2* 


MOVB 


RO, Q. DEVX<R1) 


BICB 


#7, Q. UNIKRl ) 


SWAB 


RO 


BISB 


RO, Q. UNIT<R1 ) 



MOVB 

BGE 

CLRB 

CMPB 

BNE 

TST 



Q. FUNC(R1 

1* 

Q. DEVX<R1 

RO, #372 

5* 

EMTBLK+6 



)> RO 



RT V5. 4 changed logic 
Remove the next line t 



5*: 



BPL 


4* 


NOP 




CALL 


LDRST 


BR 


4* 


CMPB 


RO, #373 


BNE 


4* 


MOV 


LDSIZE(R4 


MTPD 


©EMTBLK+4 


BR 


4* 



; IS THIS A . SPFUN REQUEST? 
; BR IF NOT 
) ; TELL QIO NOT TO DO ANY ACTUAL I/O 

i IS THIS FUNCTION TO GET DEVICE TABLE? 
1 BR IF NOT 

; IS THIS A REQUEST TO UPDATE HANDLER TABLE? 
to: -went as write, +u{cnt as read 
o always read (-went and +wcnt ==> read) 

IGNORE IT IF YES 

Reserve room to patch BR back in if needed 

PASS DEVICE TABLE INFO TO USER 

FINISHED 

IS THIS FUNCTION TO GET DEVICE SIZE? 

BR IF NOT — IGNORE ALL OTHER SPECIAL FUNCTS 

GET LOGICAL DISK SIZE 

MOVE INTO USER'S BUFFER 

FINISHED 



),-<SP) 



Check to make sure that the transfer is completely within the 
area of the logical di&k. 

1-:^: MOV Q. WCNT<R1 ) , RO ; GET WORD COUNT FOR TRANSFER 

; CONVERT TO BLOCK COUNT 



.: ADD TRANSFER STARTING BLOCK NUMBER 
; IS TRANSFER WITHIN LOGICAL DISK? 

iBR IF NOT 



MOV 


Q. WCNT<R1), RO 


ADD 


#377, RO 


CLRB 


RO 


SWAB 


RO 


ADD 


Q. BLKN<R1),R0 


CMP 


RO, LDSIZE<R4) 


BHI 


2* 



lOL-ric: iDA-rius en i uvtvr.Lay riHk..Ku vuD. u^ 1-riday IB-Dec-S? 14:0? Page 54-1 

LDIO -- ProcesB I/O to logical tlit-kB 



58 

59 

60 

61 01Jlci4 U6646i UUUUUU« OOOOOUtJ 

62 

63 

64 

65 013132 000241 

66 013134 000401 
67 

68 

69 

70 013136 000261 

71 

72 

73 

74 013140 012604 

75 013142 000207 



Bias logical block number by base block of logical disk file 

ADD LDBASE<R4), O. BLKN(R1> ;BIAS BLOCK NUMBER 
TreriBfer is ready to (jo 
4*: CLC ; SIGNAL SUCCESS ON RETURN 



CLC 

BR 



3$ 



End of file hit by transfer 



2*; SEC 
Finished 



; SIGNAL ERROR ON RETURN 



3*: 



NOV <SP)+, R4 
RETURN 



' i ciM 



LDIO 



Process I/O to logical di&ks 



UH moay la-fec-s/ m: Vi:> Page oo 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

40 

49 

50 

51 

52 

WW 

54 
55 
56 
57 



013144 
013146 
013150 



013152 
013156 
013164 
013166 
013172 
013174 
013200 
013202 
013204 
013210 
013212 
013216 
013224 
013226 
013234 
013236 
013242 
013244 
013250 
013252 
013254 
013260 
013264 



013266 
1 3272 
013276 
013300 
013302 



010246 
1 0346 
010446 



013702 
123727 
001406 
012746 
10662P 
012746 



005003 
016300 
001417 
052700 
032763 
001411 
123727 
00 1 403 
052700 
000402 
052700 
010046 
106622 
062703 
020327 
103747 



012704 
012700 
012446 
106622 
077003 



Process the Logical Disk special function code 372 that is used to 

one entry in each 



pass the LD data tables to the user. 



(he information returned consists of 4 
table for each logical disk unit (0-7). 
The four tables artr. 



tables uith 



un it) 

is allocated 
is read-only 
number mask 



FLAGS (1 word per 

100000 = Unit 

020000 = Unit 

003400 = Unit 

000076 = Device inde.x number mask 
OFF-SET (1 word per unit) 

Starting block number of logical disk on real disk. 
SIZE (1 word per unit) 

Number of blocks allocated for logical disk. 
NAME (4 words per unit) 

File spec for logical disk file. 



LDRST: 


NOV 


R2, -(SP) 




NOV 


R3, -(SP) 




NOV 


R4, -(SP) 



000004(5 
OOOOOOG 000001 

045640 

OOOOOOG 

OOOOOOG 

1 00000 

OOOOOOG OOOOOOG 

OOOOOOG 000001 

040000 
020000 



000002 
OOOOOOG 



Pass flag table info to ui,er 



MOV EMTBLK+4, R2 

CMPB LOVERS, #1 

BEQ 11$ 

NOV #-RLD , ~(SP) 

NTPD ( R2 ) + 

NOV #MAXLD, "(SP) 

NTPD (R2)+ 

11*: CLR R3 

1*: NOV LDPDEV(R3),R0 

BE(3 2* 

BIS #100000, RO 

BIT #LD*RDN, LDFLAG 

BEQ 2* 

CNPB LDVERS, #1 

BEQ 22* 

BIS #040000, RO 

BR 2* 

22*; BIS #020000, RO 

2*: NOV RO, -(SP) 

NTPD (R2)+ 

ADD #2, R3 

CNP R3, #NAXLD^i-2 

BLO 1* 



Get address of user's buffer 
LD version format 5. 3& earlier?' 
Skip first two words if old format 
Pass LD device name to user 

iPass number of LD units to user 



Offset info table 



OOOOOOG 
OOOOOOG 



3*: 



NOV 


#LDBASE, R4 


NOV 


#NAXLD, RO 


NOV 


(R4)+, -(SP) 


NTPD 


(R2) + 


SOB 


RO, 3* 



ilnit LD index 

; Get real disk device # and unit # 
; Br if unit is not allocated 
^ Set unit-allocated flag in status 
(R3); Is the unit read-only? 
j Br if not read-only 
; LD version format 5. 38< earlier? 
; Use old mask for old format 
; Set read-only status flag <5. 4&later) 

; Set read-only status flag (5. 3&earlier ) 
iPass status flags to user 

j Increment unit index 
; Done all units? 
J Br if more to do 



J Point to table with base values for disks 

; Get number of units 

i Pass offset info to user 



SijCB info table 



-r-\r— kJi-n 



ibfcnk' 


rsx-riu 


s fz.n\ uv 


t? r J. a y 


LDIO 


— Proce 


S5 I/O t 


D logica 


58 








59 


013304 


012704 


OOOOOOG 


60 


013310 


012700 


OOOOOOG 


&1 


ui;j;ji4 


U 1 k"+*& 




62 


013316 


106622 




63 


013320 


07700;i 




64 








65 








66 








67 


013322 


012704 


OOOOOOG 


68 


013326 


012700 


OOOOOOC 


69 


013332 


012446 




70 


013334 


106622 




71 


013336 


077003 




72 








73 








74 








75 


013340 


1 2604 




76 


013342 


012603 




77 


013344 


01260i* 




78 


013346 


000207 





i disks 



U-tf 



hriday ib-uec-BV 14: OP Hage 55-1 



4*: 



MOV 


#LDSIZE. R4 


MOV 


#MAXLD, RO 


MOV 


(R4)+, -<SP) 


MTPD 


(R2) + 


SOB 


RO, 4* 



File name table 



5*: 



MOV 


#LDNAME, R4 


MOV 


#MAXLD«4, RO 


MOV 


(R4)+, -<KP) 


MTPD 


<R2) + 


SOB 


RO, 5* 


i n i B h e d 




MOV 


<SP)+, R4 


MOV 


< SP ) +, R3 


MOV 


(SP)+>R2 


RETURN 





;Point to table with size info 

; Get # LD units 

; Pass size info to user 



iPoint to table with file name info 
i Get # words to move 
; Pass info to user 



i 



INDIO 



lisA-nus t^ri 1 uverj.ay DBt^Ku vuv. uh 

" Perform I/O for IND data spgment 



t-ri«ay lb-uec-a7 14:02* rage d& 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



013350 010546 



13352 
13360 
1 336c 
1 3370 



13400 
13402 
13410 
13412 



13420 
13422 
1 3424 
13426 
13432 
13436 
13442 
13446 



13452 
13454 



00 1 03''! 
023737 
00 1 030 



032761 
00 1 007 
123727 
001420 
052761 



010105 
00620t> 
005305 
070537 
010537 
013703 
062703 
010337 



012605 
000207 



. SBTTL INDID — Perform I/O for IND data segment 

INDIO is called for each Read and Write operation when IND is running. 
it determines if the read/write is directed to the IND data segment 
overlay and if so, redirects it to the appropriate position in the 
INDTHP. TSX file. 

This is done by altering the block number in EMTBLK and changing 
CHNADR to point to a channel block that is opened to the INDTMP file. 

Inputs: 
Rl = Job index number 
CHNNUM = Channel niimbpr 
CHNADR = Address of CSW for channel 

Outputs: 
If I/O is redirected to INDTMP file... 
R3 = Address of channel block for INDTMP file. 
CHNADR = Address of channel block for INDTMP file. 
EMTBLK+2 = Block # in INDTMP file of area for data segment for this job. 

INDIO: MOV R5, -(SP) 

Determine if this I/O is directed to the IND data segment overlay 



0000000 
0000020 



000017 
OOOOOOG 



CMP CHNNUM, #17 

BNE 9* 

CMP EMTBLK+2, INDDBL 

BNE 9* 



IS I/O BEING DONE TO IND. SAV FILE? 

BR IF NOT 

ARE WE ACCESSING DATA SEGMENT OVERLAY? 

BR IF NOT 



0000000 
00000 IG 
OOOOOOG 



OOOOOOG 

000010 

OOOOOOG 



IND is accessing its data segment overlay. 

Determine if the data segment has been written to the temp file yet. 

BIT #*INDDW, LSW6<Rl)i HAS DATA SEGMENT BEEN WRITTEN TO TEMP FILE? 

BNE 1* i BR IF YES 

CMPB EMTBLK+1,#10 i IS THIS A READ OR WRITE REQUEST? 

BEQ 9* iBR IF READ — GO TO SAV FILE TILL 1ST WRITE 

BIS #*INDDW,LSW6<R1>; REMEMBER 1ST WRITE HAS BEEN DONE TO TEMP FILE 

Change info to cause I/O to be directed to SY: INDTMP. TSX file. 

The position within the INDTMP file is a function of the Job index #. 



1*: 



OOOOOOG 
000002G 
OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 
ASR 
DEC 
MUL 
MOV 
MOV 
ADD 
MOV 

Finished 



9$: 



MOV 
RETURN 



R1,R5 
R5 
R5 

INDDBS, R5 
R5, EMTBLK+2 
CXTRMN, R3 
#R*INTC, R3 
R3, CHNADR 



(SP)+, R5 



GET JOB # 

DIVIDE BY 2 

MAKE RELATIVE TO O 

TIMES # OF BLOCKS IN THE OVERLAY SEGMENT 

REPLACE BLOCK # FOR I/O OPERATION 

GET ADDRESS OF JOB'S SIMULATED RMON 

POINT TO CHANNEL BLOCK FOR INDTMP FILE 

DO I/O TO INDTMP FILE (SET NEW CSW ADDRESS) 



4 
i 



-Ti-vi—Kfi'n ~rr^\/ ni . 


_ r-hjiT n. 




K.4 A y^ I'T /** > 1 r\ rr 


r\ « r— * t 










1 cjciic£ icJA—rAua cf i i wvtfi *iaij 


riMuriu vu 


xJ. 


KJH r- r 1 a a y 


13-uec-fcJ/ 14: 02 h'a 


ge tJ/ 






EMTTRC — Trace 


EMT execution 
















1 

2 








i - 


. SBTTL EMTTRC — Trace 


EMT execution 






C 3 


EMTTRC is 


called from TSEMT when each EMT is processed 


and the 




4 










hMI fRACE 


mode is turned on. 


The EMT information has 


been 




5 
C 6 

7 013456 










set up in 


EMTBLK. 








010246 




j 


EMTTRC: MOV 


R2, -<SP) 








8 013460 


010346 








MOV 


R3, -<SP) 








( 9 013462 


010446 








MOV 


R4, -<SP) 








10 013464 

1 1 


010546 








MOV 


R5, -(SP> 








i 12 

13 

14 013466 










Determine 


if we should trace 


this EMT 






032761 


OOOOOOG 


OOOOOOG 




BIT 


#*INKMN, LSW4<R1> 


; IS KMON RUNNING? 






i 15 013474 


001101 








BNE 


9* 


;BR IF YES — DON'T TRACE 


KMON 




16 013476 


032761 


OOOOOOG 


OOOOOOG 




BIT 


#*CCLRN, LSW5(R1> 


i IS CCL RUNNING? 






17 013504 


001075 








BWE 


9$ 


J BR IF YES — DON'T TRACE 


CCL 




i 18 013506 


032737 


OOOOOOG 


OOOOOOG 




BIT 


#UMODE, EMTPS 


; WAS EMT EXECUTED IN USER 


MODE? 




19 013514 
20 


001471 








BEQ 


9* 


iBR IF NOT — DON'T TRACE 


KERNEL EMT 


'S 


< 21 










We want tc 


> trace this EMT 








22 










Begin disp 


lay line 








23 




















i 24 013516 


012700 


000015 






MOV 


#15, RO 


; PRINT CR 






25 013522 










. TTYOUT 








26 013526 


012700 


000012 






MOV 


#12, RO 


; PRINT LF 






1 27 013532 










. TTYOUT 








28 






> 




Print EMT a 


ddress 








29 013536 


013705 


OOOOOOG 






MOV 


EMTADR,R5 


; GET EMT ADDRESS 






i 30 013542 


012703 


000005 






MOV 


#5, R3 


) PRINT 16-BIT VALUE 






31 013546 


004737 


013712' 






CALL 


PRTOCT 








32 






t 




Print EMT 


instruction low-ord 


er byte 






1 33 013552 


113705 


OOOOOOG 






MDVB 


CUREMT, R5 


jGET INSTRUCTION ARGUMENT 


BYTE 




34 013556 


012703 


000003 






MOV 


#3, R3 


; PRINT S~BITS 






35 013562 


004737 


013712' 






CALL 


PRTOCT 


; PRINT IT 






t 36 






i 




Print func 


tion code 








37 013566 


113705 


00000 IG 






MOVB 


EMTBLK+1,R5 


;GET FUNCTION CODE 






38 013572 


123727 


OOOOOOG 


000374 




CMPB 


CUREMT, #374 


; IS THIS AN EMT 374? 






i 39 013600 


001003 








BNE 


3* 


, BR IF NOT 






40 013602 


162705 


000044 






SUB 


#E375MX, R5 


iGET 374 FUNCTION CODE 






41 013606 


00040D 








BR 


2* 


, GO PRINT IT 






i 42 013&10 


020527 


000060 


3$ 


CMP 


R5, #RT11EX 


IS THIS A TSX EMT? 






43 013614 


10340r/ 








BLO 


2* 


BR IF NOT 






44 013616 


062705 


000020 






ADD 


#<100-RT11EX>, R5 


GET ORIGINAL FUNCTION CODE VALUE 




( 45 013622 


004737 


013712' 


2* 


CALL 


PRTOCT 








46 






/ 




Print channel number 








47 013626 


113705 


OOOOOOG 






MDVB 


EMTBLK, R5 


GET CHANNEL # 






i 48 013632 


004737 


013712' 






CALL 


PRTOCT 


PRINT IT 






49 






f 




Print EMT 


argument values 








50 013636 


01270<^ 


000002G 






MOV 


#EMTBLK+2, R4 


POINT TO ARGUMENT BLOCK 






1 51 013642 


012702 


000005 






MOV 


#5, R2 


PRINT 5 ARGUMENT VALUES 






52 013646 


010203 








MOV 


R2, R3 


PRINT 16~BITS EACH 






53 013650 


0124013 




1« 


MOV 


<R4)+,R5 


GET ARGUMENT VALUE 






1 54 013652 


004737 


013712' 






CALL 


PRTOCT 


PRINT IT 






55 013656 


077204 








SOB 


R2, 1* 


LOOP IF MORE TO PRINT 






56 






> 




Knd of line 








C 57 013660 


012700 


000015 






MOV 


#15, RO 


PRINT CR 







TStria TSX-Plus EM! Ovenay 
EMTTRC — Trace EMT execution 



0000 1; 
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I 



58 


013664 




59 


013670 


012700 


60 


013674 




61 






62 






63 






64 


013700 


01260r> 


65 


013702 


012604 


66 


013704 


012603 


67 


013706 


01260,1 


68 


013710 


000207 



. TTYDUT 

MOV #12, RO 

. TTYOUT 



i PRINT LF 



9$: 



Fivii shed 

MOV 
MOV 
MOV 
MOV 



<SP)+, R5 
(SP)+> HA 
(SP)+, R3 
<SP)+, R2 



RETURN 



TSEM2 
."RTOCT 



TSX-Piu5 EfiT Ovcria^ 
- Print ai-i octal value 



3 








4 








5 








6 








7 








a 








9 


013712 


010346 




10 


013714 


010446 




11 


013716 


010546 




12 








13 








14 








15 


013720 


020327 


000005 


16 


013724 


001007 




17 


013726 


012700 


000030 


18 


013732 


006105 




19 


013734 


006100 




20 


013736 






21 


013742 


000404 




22 








23 








24 








25 


013744 


042705 


1 77400 


26 


013750 


072527 


000007 


27 








2S 








29 








30 


013754 


012704 


000006 


31 


013760 


073427 


000003 


32 


013764 


010400 




33 


013766 






34 


013772 


077310 




35 








36 








37 








38 


013774 


112700 


000040 


39 


014000 






40 


014004 






41 








42 








43 








44 


014010 


012605 




45 


014012 


012604 




46 


014014 


012603 




47 


014016 


000207 




43 




000001 




E C 


letected 


: 





Error 



*** Assembler statistics 
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. SI3TTL PRTOCT — Print an octal value 

PRTDCT is called to print an octal value on the user's terminal. 

Inputs: 
R5 ~ Value to be printed. 
R3 = e/16-bit flafl: 3=->a--bit value, 5==>16-bit value 



PRTDCT: MOV 
MOV 
MOV 



R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



If this is a 16-bit value* print 1st digit now 



IS THIS A 16-BIT VALUE? 

BR IF NOT 

GET 60 SHIFTED 

GET iST BIT OF VALUE 

INTO RO 

PRINT IT 



This is an S-bit value, left justify the 8 bit quantity 



CMP 


R3, #5 


BNE 


1* 


MOV 


#30, RO 


ROL 


R5 


ROL 


RO 


. TTYOUT 




BR 


2* 



1*: BIC #-^C<377>, R5 
ASH #7, R5 



i CLEAR ALL BUT 8 BITS 
jLEFT justify the VALUE 



Bettin loop to print the value 

!$: MOV #6, R4 
ASHC #3, R4 
MOV R4, RO 
. TTYOUT 
SOB R3, 2* 



WILL BECOME 60 WHEN SHIFTED 

MOVE 3 BITS FROM R5 TO R4 

GET TO RO FOR TTYOUT 

SEND THE CHARACTER 

LOOP IF MORE DIGITS TO PRINT 



Put in 2 spaces following value 



MOVE 


# ' , RO 


. TTYOUT 




. TTYOUT 




Finished 




MOV 


(SP)+, R5 


MOV 


( SP ) +, R4 


MOV 


<SP)+, R3 


RETURN 




. END 





GET SPACE 
SEND IT 



Work file reeds 
Work file writes 
Size of work file 
Size of core pool 







9466 Words 

17920 Words 



( 37 P a 9 e s ) 

< 70 Paqes) 
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PRTOCT -- Print an octal value 

Operatinci system; RT 11 

Elapsed time. 00:01:24.40 

DK: TSEM2, LP: TSEM2=^DK: TSEM2. MAC/C/N: GYM 
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Cross reference table (CREF V05. 04) 



liCCLRN 


1-102 


57-16 






















HCFOPN 


1-S3 


14-21 






















«CTRLO 


1-106 


l-:l2t; 


1 4 -23 




















*CTRLS 


1-84 


43-67 






















«DBGMD 


1-119 


40-55 


40-58 




















$DEAD 


1-126 


43-26 






















*DETCH 


1~S5 


31-34 






















*DILUP 


1-150 


31-32 






















*EMTTR 


1-91 


4-14 






















*FORM 


1-118 


1-161 






















*HARD 


1 - 1 26 


43-24 






















^INDDW 


1-121 


56-33 


56-37 




















$INDRN 


1-109 


8-75 


9-91 




















*INKHN 


1-103 


4-36 


31-38 


53-44 


57-14 
















*3:0MAP 


1-162 


26-B4 






















*KINIT 


1-165 


37-34 






















*MLOCK 


1-165 


37-67 






















*NOINT 


1-132 


41-9 


41-14 




















$ODTMD 


1-130 


40-54 


40-57 




















*PRGLK 


1-103 


47-11 


47-18 




















$TTGAG 


1-136 


31-36 






















*V52EM 


1-15B 


39-11 






















*VIRJB 


1-96 


12-90 






















*VNOTT 


1-84 


45-9S 






















. . . VI 


15-40 


57-25 


57-27 


57-58 


57-60 


58-20 


58-33 


58- 


-39 


58-40 






. . . V2 


1 5-40 


1 5-40# 






















ABORT 


1-129 
























ABRTAD 


1-101 


36-20 +;• 






















ABRTCD 


1-101 


36-2 Hf 






















ABTIO 


1 -87 


2-58 






















ADM3A 


1-159 


39-30 






















ALCEMT 


1-89 


2-110 






















ASTXIT 


3-18 


34-5# 






















BADEMT 


1-75 


2-19 


2-23 


2-29 


2-30 


2-39 


2-56 


4- 


-25 


34-12 


36- 


-16 


C. CSW 


1-142 


8-7 


8-16 


8-48 


8-53 


8-67 


8-69# 


8- 


-148 


8-150* 


9- 


-7 




9-63 


9-65* 


9-71 


9-73* 


9-128 


9-130* 


9-136 


9- 


-13S# 


11-7 


11- 


-74 




11-81*^ 


16-6 


16-9 


16-36 


16-38* 


17-9 


17-26 


17- 


-51* 


18-6 


18- 


-20 




19-20 


1 9-22» 


25-9 


25-22 


25-38 


51-26 


51-135 












C. DEVQ 


1-144 


1 7-32 


25-35 


51-29 


















C. LENG 


1-145 


25-28 


51-95 




















C. NUMQ 


1-143 


17-31 & 






















C. SBLK 


1-145 


8-83 


8-108 


25-25 


51-93 


51-109 














C. USED 


1-142 


8-104 


8-112^f 


8-113* 


25-31 
















CANMKT 


1-73 


15-21 


23-56 


24 -9# 


















CAPOPN 


2-85 


5-1211 






















CDFN 


2-21 


25-52# 






















CFLAG 


1-109 


8-121 






















CHKABT 


1-133 


21-14 


32-24 


50-21 


















CHKERR 


7-9 


7-18 


7-271! 




















CHKSF 


5-6 


5-12 


5-19 


5-26 


5-33 


5-39 


5-45 


5- 


-53 


5-61# 






CHKTT 


8-42 


9-43 


49-13*1 




















CHKUSP 


1-90 
























CHNADR 


1-124 
51-23 


4-51* 
56-49K- 


8-6 


9-6 


1 1 -6 


16-5 


17-5 


17- 


-25 


18-5 


19- 


-5 


CHNERR 


4-40 


4-70# 






















CHNNUM 


1-120 


4~42«- 


18-9 


51-22 


56 25 

















9-16 


9-51 


11-76* 


11-79 


18-27* 


19-9 



J5-5 49-13 
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CHNSIZ 


1-117 


4-49 










CHSTAT 


2-31 


25-5# 










CINDAT 


1-142 


14-10 


28-18 








CJNFLG 


1-70 


14-5*- 










CKINAC 


2-83 


40-6 5# 










CKIOST 


8-5 


9-5 


11-5 


50 


■s# 




CKWIN 


2-113 


5-7 5# 










CLASN 


1-71 


2-- 109 










CLKOPN 


2-64 


5-6# 










CLOSE 


1-121 


2-15 


2-53 


18 


-26 




CLRDIR 


1-107 


8-91 










CMDB 


1-174 


30-5 










CMDC 


1-174 


30-6 










CMDE 


1-174 


30-8 










CMDF 


1-174 


30-9 










CMDO 


1-174 


30-10 










CMDH 


1-174 


30-11 










CMDI 


1-175 


30-12 










CHDJ 


1-175 


30-13 










CMDK 


1-175 


30-14 










CHDL 


1-175 


30-15 










CHDM 


1-175 


30-16 










CHDN 


1-175 


30-17 










CHDO 


1-175 


30- IS 










CMDR 


i---176 


30-21 










CMOS 


1-176 


30-22 










CMDT 


1-176 


30-23 










CMDU 


1-176 


30-24 










CMDW 


1-176 


30-26 










CMDX 


1-176 


30-27 










CMDY 


1-176 


30-28 










CMDZ 


1-176 


30-29 










CMKT 


2-27 


23- 5# 










CONFIG 


1-163 


12-29 










CORUSR 


1-125 


4-13 


22-14 


24- 


-15 


48-36 


CP$STD 


1-118 


48-40 










CPYEMT 


1-89 


2-112 










CQ$CP 


1-118 


48-40iJ 










CQ*FLG 


1-103 


23-17 


24-17 








CQ*HOT 


1-155 


22-20* 


23-35 








CQ*JOB 


1-98 


22-141^ 


23-15 


24- 


-15 


48-37* 


CQ*LNK 


1-98 


22-36* 


23-11 


23- 


-13 


23-26 


CQ*LOT 


1-155 


22-22* 


23-37 








C«*PA5 


1-98 


22-29* 


4S~45* 








CQ*PRI 


1-128 


49-39* 










CQ$R0 


1-98 


22-31* 


23-19 








CQ*RNS 


1-128 


48-38* 










CQfRTN 


1-98 


22-27* 


48-23 


48- 


-44* 




CSfENT 


1-140 


8-106 


16-9 


17- 


•29 




CS^EOF 


1-141 


9-71 


9-73 


9" 


-136 


9-138 


CS$ERR 


1-140 
19-22 


8-67 


8-69 


B- 


"148 


8-150 


CS*NMX 


1-140 


1-141 


17-34 


18- 


•21 




CS$OPN 


1-141 


8-7 


9-7 


11- 


•8 


16-6 


CSfRDN 


1-109 


8-54 










CS*SPL 


1-147 


8-48 











50-13 51-30 53-34 



23-26* 24-11 24-13 24-19 24-19-* 



LI -79 11-31 51-88 51-90 51-92 

9-63 9-65 9-128 9-130 11-74 11-76 19-20 



16-36 17-9 17-27 18-6 19-9 25-9 
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CSFACT 


2-81 


5-4 5# 






















CSIARE 


1-146 


1-172 






















CSIGEN 


1-90 


3-8 






















CSISPC 


1-90 


3-9 






















CUNLK 


2-65 


5-19# 






















CURCP 


1-125 


35-7 


50-11 




















CUREMT 


1-106 


57-33 


57-38 




















CVTUAD 


51-71 


53-32# 






















CW*FPU 


1-130 


12-29 






















CXTBAS 


1-112 


53-46 


53-71 




















GXTBUF 


1-84 


37-79 






















CXTRMN 


1-126 


4-43 


20-19 


26-25 


27-8 


27-22 


27-39 


56-47 










DATE 


2-57 


20~17# 






















DCRDl 


1-110 


9-84 






















DCRD2 


1-111 


9~J1S 






















DELETE 


1-86 


2-8 






















DETEMT 


1-77 


2-90 






















DH**LB 


1-106 


8-87 






















DIABLO 


1-160 


39-33 






















DIEARG 


1-41 
























DIEMSG 


1-41 
























DISMNT 


1-SS 


2-93 






















DOC IN 


2-55 


14-5# 






















DOC OP N 


1-91 


5-7 






















DOCULK 


1-91 


5-20 






















DOEMT 


1-69 


4-13# 






















DOGVAL 


26-i7# 


27-55 






















DOOPAP 


1-91 


5-13 






















DORLK 


1-91 


5-27 






















DOSFCK 


1-92 


5-46 






















DOTLK 


1-92 


5-34 






















DOULKl 


1-92 


5-40 






















DOWAIT 


2-lS 


2-47 


19-5# 




















DSfDIR 


1-109 


8-85 


8-110 


1 1 -30 


51-85 
















DS*NRD 


1-141 


18-22 






















DS*RON 


1-109 


8-59 






















DS*SFN 


1-96 


11-16 






















DSfWON 


1-110 


9-55 






















DSTAT 


1-89 


3-6 






















DVFLAG 


I-IOS 


S-18 


9-18 




















DVSTAT 


1-134 


8-59 


8-85 


8-110 


9-55 


11-16 


11-30 


18-22 


51-85 








DX$EBA 


1-ioe 


8-18 


9-18 




















E374MX 


2-59# 
























E375MX 


1-68 


2-44# 


57-40 




















EMT16 


2-22 


4-63# 






















Ef1T374 


2-47# 


2-59 






















EMT376 


1 -68 


36-a# 






















EMTADR 


1-104 


36-10 


57-29 




















EMTASP 


1-90 


1-90 






















EMTBLK 


1-102 


4-22 


4-32 


4-63 


7-7 


7-16 


7-25 


8-14 


8-25 


8-35 


8-07 


S-119 




S-125 


8-142 


8-168 


9-14 


9-26 


9-36 


9-86 


9-101 


9-122 


11-22 


11~26# 


11-46 




11-55 


11-65 


12-6 


12-15 


12-24 


12-42 


12-72 


13-5 


16-27 


17-16 


20-5 


20-34 




21-5 


22-16 


22-24 


22-31 


23-6 


23-31 


25-16 


25-52 


26-5 


26-11 


26-12 


29-17 




29-23 


31~22ii' 


31-26 


31-40 


31-54 


31-70 


32-12 


32-16 


35-15 


37-15 


37-24 


37-41 




39-44 


40-8 


40-20 


40-52 


41-4 


42-9 


42-22 


43-15 


43-35 


43-45 


43-53 


43-61 




45-14 


45-23 


45-24 


46-9 


46-11 


46-16 


47-6 


48-11 


48-30 


48-41 


48-50 


51-54 
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€ 
I 





51-56 


51-5S 


51-63 


51- 


-70 


51- 


-78 




56-27 


56-35 


56-46+^ 


57- 


-37 


57- 


-47 


EMTCAD 


1-124 


34-9 


34~.14fi. 










EHTCAS 


1-125 


34-10 












EMTERR 


1-139 














EMTLST 


2~S# 


2-44 


2-60 


2- 


-117 


4- 


-58 


EMTMAP 


1-120 


22-29 


48-45 


52- 


•IS 


53 


-89 


EMTMAX 


2-1 17# 


4-23 












EMTPLS 


1-92 


6-8 












EMTPLX 


2-38 


6-6# 












EMTPS 


1-102 


4-34 


8-89 


8- 


-121* 


50- 


..9 


ENTRAD 


1-124 


34~13» 












EMTSP 


1-90 














EMTSPD 


2-108 


43-ll# 












EMTTRC 


4-18 


57-7# 












EMTWIN 


1-92 


5-79 












EMTXIT 


1-74 


2-33 


2-35 


2- 


-54 


3- 


-10 




9-145 


10-5 


10-11 


11 


-18 


11- 


-87 




16-39 


1 7-46 


18-28 


19 


-28 


20- 


-21 




26-27 


26-40 


27-11 


27- 


-24 


27- 


-42 




39-23 


39-50 


40-47 


40- 


-68 


41- 


-19 




47-19 


48-55 












EMUNAM 


2-103 


46-a# 












ENTER 


1-86 


2-10 












ESP C PS 


2-41 


35-7# 












EXCJOB 


1-106 


12-75 












EXIT 


3-12 


28- 5# 












FAKCMP 


1-110 


8-37 


8-170 


9 


•38 






F'ETCH 


1-89 


3-7 












FPUUSE 


1-130 


12-3HJ 


^^-33^^• 










FRECXT 


1-83 


37~B2 












GETBRK 


2-91 


4S-6# 












GETCXT 


1-84 


37-72 












GETDSS 


1-178 


43-51 












GETPPN 


2-98 


39-4 4 # 












GETQ 


1-70 


8-95 


9-97 


11- 


-41 


22- 


•9 


GETTIH 


2-25 


20- 5# 












GETUCH 


1-71 


31-61 












GFINFO 


1-88 


2-101 












GTJB 


2-24 


13~5# 












GTvJJ 


13~23# 














GTLICM 


2-84 


40~73# 












GTMSBF 


31-47 


32~9# 


32-25 










GTSPAC 


1-174 


30-7 












GVAL 


2-36 


26- 5# 












GVBAD 


27-5 


27-7 


27-16 


27- 


•27 


27- 


-33 


GVJMP 


26-13 


27-55# 












HAZEL 


1-159 


39-29 












HERR 


2-52 


10-10# 












HITRM 


39-16 


39-37# 












HRESET 


3-19 


1 5-6# 












INDDBL 


1-121 


56-27 












INDDBS 


1-121 


56-45 












INDFIL 


1-177 


42-40 












INDIO 


8-77 


9-93 


56-21# 










INTEMT 


2-107 


41-4# 













51-82 51-102 51-105 51-108 54-35 54-45* 55-25 

57-50 



51-59 53-38 57-18 



3-11 5-55 7-27 8-38 8-156 S-I74 9-39 

12-18 12-43 12-61 12-94 13-23 14-24 15-47 

20-53 21-26 22-42 23-46 23-57 25-45 25-53 

29-27 31-76 34-15 35-18 37-106 37-139 37-155 

42-32 43-73 44-25 45-77 45-101 46-59 47-12 



48-35 



27-45 
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INTERR 


1-110 


9-104* 


9-151 


51 


-123* 5i-128fi- 


INTPRI 


1-99 


22-38 


23-27 


23- 


-50 24-20 24-28 


lOABFL 


1-127 


18-24 








lOABRT 


8-160 


9-100 


9-105 


9- 


-150# 11-91 


lOHALT 


1-104 


15-6 








lOWAIT 


1-73 


8-144 


9-124 


11- 


-70 16-16 18-8 


JBINFO 


2-100 


37-1 5# 








JCDB 


1-126 


8-136 


9-80 


9- 


-114 16-20 17-40 


JIBASE 


37-1 16# 


37-163 








JICONT 


37-110# 


37-162 








J I CPU 


37-133# 


37-166 








JIDLN 


1-164 


37-65 








JIJMPX 


37-53 


37-159# 


37-169 






J I MEM 


37-i02# 


37-161 








JIMLOK 


1-164 


37-69 








J I NAME 


37-i48# 


37-168 








JIPPN 


37-127# 


37-165 








JIPRIO 


37-143# 


37-167 








JIPRIV 


1-164 


37-81 








JIPROG 


37-121# 


37-164 








JIRETl 


37-84 


37-96 


37-98 


37- 


-104# 37-112 37-117 


JIRET2 


37-123 


37-129 


37-135# 






JIRNND 


37-93 


38-31 # 








JIRNST 


37-88 


38- 5# 








JIRUN 


37-8S# 


37-160 








J I STAT 


37-57# 


37-159 








JIVLN 


1-164 


37-63 








vJMDP 


12-9 


12-1B# 


12-34 






JSWLOC 


1-135 


12-89ti^ 








KMNBAS 


1-112 


53-48 








KMNEMT 
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